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Preface 


This publication is a reference manual for the programmer 
using the IBM System/3 Basic Assembler language. This 
language provides facilities for representing machine 
usable instructions symbolically on a one-for-one basis. 
The symbolic representations are translated by the IBM 
System/3 Basic Assembler into the machine usable form 
necessary for running a program on the System/3. 


System/3 Model 8 


The System/3 Model 8 is supported by System/3 Model 10 


Disk System control programming and program products. 


The facilities described in this publication for the Model 10 
are also applicable to the Model 8, although the Model 8 is 


not referenced. It should be noted that not all devices 


and features which are available on the Model 10 are avail- 


able on the Model 8. Therefore, Model 8 users should be 
familiar with the contents of JBM System/3 Model & 
Introduction, GC21-5114. 


Eighth Edition (April 1975) 


Related Publications 


The IBM System/3 Models 8, 10, 12, and 15 Components 
Reference Manual, GA21-9236, contains specifications 
governing the use of assembler language instructions. 


This is a minor revision of $C21-7509-5 incorporating Technica] Newsletters: 


SN21-5385 March 17, 1976 
SN21-5434 December 31, 1976 
SN21-5536 June 24, 1977 


This revision makes some changes to various pages and introduces information concerning 
the IBM System/3 Model 8. Changes to text and smal] changes to illustrations are 
indicated by a vertical line at the left of the change; new or extensively revised 


Ulustrations are denoted by the symbol @ at the left of the figure caption. 


This edition applies to version 12, modification 00 of IBM System/3 Model 10 Disk System 
Basic Assembler (Program Product Number 5702-AS1); version 03, modification 00 of 
IBM System/3 Model 15 Basic Assembler (Program Product Number 5704-AS1); and to all 
subsequent versions and modifications unless otherwise indicated in new editions or 
technical newsletters. Changes are continually made to the specifications herein; before 
using this publication in connection with the operation of IBM Systems, consult the 

latest IBM System/3 Bibliography, GC20-8080, for the editions that are applicable and 


current. 


Requests for copies of IBM publications should be made to your IBM representative or to 


the branch office serving your locality. 


A Reader’s Comment Form js at the back of this publication. If the form is gone, address 
your comments to IBM Corporation, Publications, Department 245, Rochester, 


Minnesota 55901. 


©Copyright International Business Machines Corporation 1970, 1971, 1972, 1973, 1975 
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The IBM System/3 Basic Assembler language is a 
symbolic language. That is, it must be translated into a 
form usable by the computer before a program can be 
run. The computer-usable form is called machine 
language, and the IBM System/3 Basic Assembler language 
provides a convenient method for representing, on a 
one-for-one basis, machine language instructions and 
related data necessary to write a program for IBM 
System/3. This one-for-one relationship to machine 
language instructions gives assembler language great 
programming versatility. 


The assembler language is composed of symbols, called 
mnemonics, which are used to represent the operation 
codes of two types of instruction statements: 


1. Machine instruction statements are the symbols 
that represent machine language instructions on a 
one-for-one basis. Note that symbolically repre- 
sented machine instructions are translated into 
machine language by the assembler. 


2; Assembler instruction statements are instructions 
which control the functions of the assembler. Each 
assembler instruction statement causes the assembler 
to perform a specific operation during the assembly 
process. 


The IBM System/3 Basic Assembler: 
@ Processes instructions written in assembler language. 


e Translates the assembler language instructions into 
machine language. 


e Assigns storage locations. 


e Performs other functions necessary to produce an 
executable machine language program. 


In order to call the assembler from its storage 

location, a specific set of OCL (operation control 
language) instructions must be used. Following these 
OCL instructions, the user may elect to include an 
OPTIONS instruction, a facility which allows him to 
take advantage of various combinations of output listings 
and punched decks. 


Introduction 


There are certain procedures for storing assembler routines 
on the Model 10 Disk System, Model 12, and Model 15 R 
(relocatable) Libraryand for loading assembler object pro- 
grams into main storage. These procedures, as well as the 
other items mentioned briefly above, are discussed more 
fully in the text. 


MINIMUM SYSTEM REQUIREMENTS 


The minimum system configuration and optional device 
support for the Basic Assembler program is shown in the 
IBM System/3 Models 6, 8, 10, and 12 System Generation 
Reference Manual, GC2\|-5126 and in the JBM System /3 
Model 15 System Generation Reference Manual, 
GC21-7616. 
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MAIN STORAGE REQUIREMENTS 


The Model 10 Disk System Basic Assembler (5702-AS1) 
requires 8,192 bytes of main storage for execution, 
exclusive of contro] program requirements. 


The Model 12 Basic Assembler (5705-AS1) and the 
Model 15 Basic Assembler (S704-AS1 or 5704-AS2) 
require 10,240 bytes of main storage for execution, 
exclusive of control program requirements. 


sens 


The IBM System/3 Basic Assembler language is a symbolic 
language that provides a convenient method for 
representing, on a one-for-one basis, machine language 
instructions. The symbolic representations in assembler 
language coding are translated by the IBM System/3 
Basic Assembler into the machine language form usable 
by the computer. In order to code in assembler 
language, the user must become familiar with certain 
terms, coding conventions, instructions, and other 
features of the language. The remainder of this chapter 
deals with these items. 


BASIC STATEMENT FORMAT 


A statement coded in assembler language can contain up 
to four entries from left to right: Name, Operation, 
Operand, and Remark. See Assembler Coding Conventions 
in this manual for an explanation of the contents and 
functions of each entry. 
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TERMS AND EXPRESSIONS 


A term is a single symbol, self-defining value, or location 
counter reference which can be used only in the operand 
field of an assembler language instruction. The three 

types of terms are described under Terms in this section. 


An expression consists of one or more terms. It is used 
to specify the operand fields of assembler language 
instructions. Terms and expressions are classed as either 
absolute or relocatable. A term or expression is absolute 
if its value is not changed when the assembled program in 
which it is used is relocated in main storage. A term or 
expression is relocatable if its value is changed when the 
program in which it is used is relocated. 
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Program relocation is the loading of an assembled 
program (object program) into a different area of main 
storage from that which was originally assigned by the 
assembler. The difference (in bytes) between the 
originally assigned address of the object program and the 
address of the relocated object program is the amount of 
relocation. The addresses assigned to all instructions and 
data in the relocated program are changed by the amount 


Storage 


Address Main Storage 





0 


2000 


: Object Program A : 





First Loading 


Figure 1. Program Relocation 


Address 


of relocation. In Figure 1, Object Program A is initially 
loaded at address 2000 in main storage. When Object 
Program A is loaded a second time, it is placed at address 
3000 in main storage. The amount of relocation is 1000 
bytes. Therefore, the values of all relocatable terms and 
expressions used in Object Program A would be increased 
by 1000 during the second loading. 


Storage 
Main Storage 


2000 


3000 





Second Loading 


* The amount of program relocation is 1000 bytes, 


TERMS 


Three types of terms are used in the IBM System/3 
Basic Assembler language. 


e Symbol 
e Self-defining term 


e Location counter reference 


The Symbol 


A symbol is a character or combination of characters 
used to represent storage locations, instructions, input/ 
output units, registers, or arbitrary values. A symbol can 
be used in either the name field or the operand field of 

a statement. When used in the name field, the symbol is 
called a name field entry. When used in the operand 
field, the symbol is called a symbolic term. 


When the assembler finds a symbol in the name field of 
a Statement, it assigns to that symbol an address value 
attribute. See Addressing in this section. The assembler 
also assigns a length attribute to the symbol, which is 
the number of bytes in the storage field named by the 
symbol. There are exceptions. When the assembler en- 
counters EQU, START, or TITLE statements, it does 
not assign the usual attributes. EQU name field entries 
derive their values from the operand, START name field 
entries are assigned a length of 1, and TITLE name field 
entries are assigned no values at all. 


The same symbol cannot be used as a name entry more 
than once within a program with the exception of the 
TITLE card. In order for a symbol to be used in the 
operand field, it must be defined (that is, used as a name) 
on an instruction other than a TITLE card somewhere in 
the program. Once it is defined, the symbol may appear 
in any number of operands. Whether the symbol is used 
as a name or an operand, these rules must be followed: 


1. The symbol can consist of no more than six 
characters, the first of which must be either 
alphabetic or $, #,@,. The other characters can be 
any combination of alphabetic, numeric, or $, #,@. 


2, Blanks and special characters other than $, #, @ 
cannot be used in a symbol. 


The Self-Defining Term 


The sel f-defining term is a term which specifies an actual 
value or bit configuration. 


The value expressed by the self-defining term is taken 
literally by the assembler and is assembled into the instruc- 
tion. Like all terms, the self-defining term is used only 

in the operand field. 


There are four types of self-defining terms: 
e Decimal 

e Hexadecimal 

e Binary 


e Character 


Decimal Self-Defining Terms 


A decimal self-defining term is an unsigned decimal 
number written as a sequence of decimal digits. High 

order zeros may be used, such as in 0003. If a decimal 
term is used as an address, its value cannot exceed the 
number of bytes in main storage. A decimal term consists 
of no more than five digits and cannot exceed a value of 
65,535. This value is equivalent to the binary value 

that can be contained in two bytes. A decimal self-defining 
term is assembled as its binary equivalent. 


Examples: 16 132 00006 43678 


In the following example, a decimal self-defining term is 
used in a Move Immediate (MVI) instruction. The binary 
equivalent of 25 would be placed in the |-byte area 
referenced by the symbol, COST 


OPERATION 1 OPERAND 





COST, 25 
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Hexadecimal Self-Defining Terms 


Hexadecimal self-defining terms can consist of up to 
four hexadecimal digits enclosed in apostrophes and 
preceded by the letter X. 


Examples: X‘C34A’) X‘04F’ X‘6’)— X‘DE’ 


Each digit is assembled into its 4-bit binary equivalent. 
Therefore, the maximum value would be X‘FFFF’ 
(65,535). 


The following is an example of the use of a hexadecimal 
self-defining term. The I-byte area at SWITCH would 
contain the hexadecimal value FO (binary, 11110000) 
after execution of the instruction. 


NAME | OPERATION | OPERAND 


BETA MV] 


| SWITCH, X‘FO’ 


Binary Self-Defining Terms 


Binary self-defining terms are written as a sequence of 
i’s and 0’s enclosed in apostrophes and preceded by the 
letter B; such as B‘1011’. This term would appear in 
storage as 00001011. The high-order (leftmost) bits 

are padded with O-bits to make a multiple of eight bits of 
data (one or two bytes). A maximum of 16 bits of data 
can be represented in each term. In the following 
example of a Move Immediate instruction, the binary 


information will be moved into the 1-byte field at AREA. 


NAME OPERATION I OPERAND 


GAMMA ! mvI | 


AREA, B‘10110011' 





Character Self-Defining Terms 


Character self-defining terms consist of one or two 
characters enclosed by apostrophes and preceded by the 
letter C; such as C‘A3’. Any of the valid punch 
combinations can be used in a character seif-defining 
term. 


Examples: CAV CEA’ CLB C3’ 


Because certain terms in the assembler language must be 
enclosed by apostrophes (such as C‘EA’), for every 
apostrophe that is used as a character in a self-defining 
term, two must be written. For example, the characters 
A’ would be written as C‘A’””’. 


In the following example, a dollar sign ($) would be 
moved into the byte field at REPORT. 


OPERAND 


REPORT, C’$’ 





Location Counter Reference 


Location Counter: The location counter is an internal 
counter, maintained by the assembler, which always 
points to the next available storage location. As each 
new statement is processed, the location counter is 
increased by the number of bytes in the assembled 
statement. The assembler uses the current address 

in the location counter to assign consecutive storage 
addresses to program statements. 


Location Counter Reference: A location counter 
reference is an asterisk (*) used as a term in the operarid 
of an instruction. When the assembler encounters 

an asterisk, it substitutes the current value of the 
location counter (which always points to the next 
available storage location) for the asterisk. 


EXPRESSIONS 


An expression consists of an arithmetic combination of 
one or more terms. In a multi-term expression, terms 
must be separated by an arithmetic operator: the 
arithmetic operators are + for addition, — for subtraction, 
and * for multiplication. 
AREA+X‘'2D’ 


Examples: N-25 R+tl5 A*8 


The rules for coding an expression are: 


1. Two terms or two operators must not be used 
consecutively in an expression. 


2. Parentheses cannot be used in an expression. 


3. Only absolute terms can be used in a multiply 
operation. 


4. Blanks are not allowed in an expression. 


. Using the Model 10 disk system basic assembler, 
an expression may consist of only one term when 
that term is a symbol used as the operand of an 
EXTRN statement. 


b. Using the Model 15 basic assembler, if the expres- 
sion contains an external symbol, then the 
expression must be of the form A or Ate. Aisa 
symbol used as the operand of an EXTRN state- 
ment and e is an absolute expression. 


Note: An Ate expression must not be in a Model 
10 subroutine with RPG II. 


If there is more than one term in the expression, the 
terms are reduced to a single value as follows: 


1. Each term is evaluated separately. 


2. Arithmetic operations are then performed in a 
left-to-right sequence, except that multiplication 
is performed before addition or subtraction. An 
example would be A+B*C, which would be 
evaluated as A+(B*C), not (A+B)*C. The result 
would be the value of the expression. 


3. The intermediate result of the expression 
evaluation is a 3-byte, or 24-bit value. Intermediate 
ress must be in the range of —2 4 through 
2°"—1. 


Negative values are carried in the two’s-complement 
form. The final value of the expression is the truncated, 
rightmost 16 bits of the result. The value of the 
expression before truncation must be in the range of 
-~65536 through +65535. A negative result is considered 
to be a 2-byte positive value. 


Note: In address constants the full 24-bit final expression 
result is truncated on the left to fit the length of the con- 
Stant. 


Absolute Expressions: An expression is considered 
absolute if its value is unaffected by program relocation. 


An absolute term may be a non-relocatable symbol, or 
any of the self-defining terms. All arithmetic operations 
are permitted between absolute terms. 


An absolute expression can contain relocatable terms or 
a combination of relocatable and absolute terms under 
the following conditions: 


1. The expression must contain an even number of 
relocatable terms. 


2. The relocatable terms must be paired and each 
pair must consist of terms with opposite signs. 
The paired terms need not be adjacent. 


3. Relocatable terms cannot be:used in a multipli- 
cation operation. 


Pairing relocatable terms with opposite signs cancels 

the effect of the relocation, because both terms would be 
relocated by the same value. Therefore, the value 
represented by the paired terms would, in effect, remain 
constant regardless of the program relocation. For 
example, in the absolute expression A—Y+X, A is an 
abso]ute term and X and Y are relocatable terms. If A 
equals 50, Y equals 25, and X equals 10, the value of 
the expression would be 35: If X and Y are relocated by 
a factor of 100, their values would become I10 and 125, 
respectively. However, the expression would still 
evaluate as 35 (SO—125+110=35). Absolute expressions 
reduce to a single absoiute value. 


Relocatable Expressions: A relocatable expression is 
one whose value changes by the amount of relocation 
when the program in which it is used is relocated. All 
relocatable expressions must reduce to a positive 
value. 
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A relocatable expression can be a combination of 
relocatable and absolute terms under the following 
conditions: 


l. There must be an odd number of relocatable 
terms. 
2. All relocatable terms, except one, must be paired 


and each pair must consist of terms with opposite 
signs. The paired terms need not be adjacent. 


3. The unpaired term must not be immediately 
preceded by a minus sign. 


4. __ Relocatable terms cannot enter into a multiplication 
operation. 


All terms in a relocatable expression are reduced to a 
single value. This single value is the value of the unpaired 
relocatable term after it has been adjusted (displaced) by 
the resultant value of the other terms in that expression. 
For example, in the expression W—X+Y where W, X, 

and Y are relocatable terms; and W=10, X=3, Y=1; 

the result would be the relocatable value of 8. 


If the program is relocated by 100 bytes, the resultant 
value of the expression would be increased by the amount 
of relocation (100), giving the expression a value of 108. 


In the following expression, a combination of absolute 
and relocatable terms are used: At+tF*G—D+tB. A, D, 
and B are relocatable terms; F and G are absolute 
terms. When given the values A=3, B=2, D=5, F=1, and 
G=4, the result would be a relocatable value of 4. The 
multiplication occurred first, resulting in 4; then the 
addition and subtraction of the other terms, including 
the result of the multiplication, was performed in a 
left-to-right direction. The result of the arithmetic 
Operations is a relocatable value of 4 for this expression. 


Upon relocation, the value of this expression can be 
determined by adding the amount of relocation to all 
relocatable terms. 


ASSEMBLER CODING CONVENTIONS 


This section explains the general coding conventions 
associated with the IBM System/3 Basic Assembler 
language. When coding in assembler Janguage, the 
programmer uses the IBM System/3 Assembler Coding 
Form (Figure 2). 


The Statement Format 


Each line on the coding form is divided into two segments: 
Statement (columns 1-87), and Sequence (columns 89-96), 


The Statement segment can contain up to four entries, 
from left to right: Name, Operation, Operand and 
Remark. The Name field is column dependent. It 
must startin column 1, unless otherwise specified by 
the ICTL assembler instruction (see Assembler 
Instruction Statements). All other entries can start 

in any column, as long as there is at least one blank 
separating each entry and the entries remain in the 
stated order. Figure 3 is a diagram of assembler 
statement entries. 
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Name Entry 


e@ Optional or required depending on the specific 
instruction. 


e Up to six characters can be used in a name. 
e First character must be alphabetic (including $, #, @). 


e First character must be in column I unless otherwise 
specified by an ICTL assembler instruction. 


e@ No special characters or blanks in a name (except 


$, #, @). 

e Atleast one blank must follow the Name entry or 
appear in the first Name entry column (if no name is 
entered). 

Operation Entry 


e@ Required entry. 


@ Contains mnemonic operation code (list of valid machine 
codes is in Appendix A. Machine Instructions) 


@ Must be followed by a blank. 


Operand Entry 


@ Optional or required depending on the specific 
instruction. 


e Contains coding that describes data to be acted upon. 
@ Operands are separated by a comma. 
e@ No blanks between terms or operands. 


e@ Blanks are allowed within character constants and 
character self-defining terms only. 


e Ifthe entire operand entry is omitted, but a remark 
entry is desired, absence of the operand must be 
indicated by a comma in the operand entry, preceded 


and followed by one or more blanks. 


e@ Must be followed by a blank. 
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Remark Entry 
e Optional entry. 


e Contains a brief verbal description of the statement’s 
function. 


e Cannot extend beyond column 87 or a limit prescribed 
by ICTL assembler instruction. 


e Can contain any combination of valid characters or 
blanks. 


e Must be followed by a blank. 


Identification—Sequence Entry 
e Optional entry. 


e Contains statement identification or sequence 
characters. 


@ See SEQ — Input Sequence Checking Jater in this section. 


Comment Statements 


The entire statement field (columns 1-87) can be used 
for comments by placing an asterisk in column 1 (or the 
beginning column, as set by the ICTL assembler 
instruction). Comments can be extended for more than 
one line by the repeated use of the asterisk in the first 
column of additional cards. Comment lines may be used 
any where in the source program and are printed on the 
program listing. Sequence checking is also performed 
on cards containing comment statements, 





(1) Name Entry 


This entry may contain 
up to 6 characters. 


If not left blank, column 
one must contain an 
alphabetic character. 





87 89 96 


Operation Entry 


This entry consists of the 
mnemonic code for the 
desired operation. The 
operation can be either 


Machine instruction Assembler instruction 






(3) Cperand Entry 


One or more operands 


that consist of either: 


or |EXP(EXP) | or | EXP (EXP,EXP) | or | EXP (,EXP) 





A single term consisting of: or An arithmetic combination 
of terms. 


A symbo!} A self-defining term 


(AT or RT) we (AT) 


Decimal be Hexadecimal 
e.g. 156 eg. X'C4’ 


This entry contains any 
statement meaningful 
to the programmer. 


This entry is optional. 


Figure 3. Assembler Statement Entries 


© 









a A location counter 


reference (*) (RT) 





EXP = expression 

AT = absolute term 
RT =relocatable term 
Binary Character 

e.g. B'101' as eg. C’ AB’ 






Sequence Entry 





This field may contain 
any valid characters. 


This entry is optional. 
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ADDRESSING 


The programmer must be able to access any part of storage. 
IBM System/3 provides two methods of addressing: direct 
and base-register displacement. The relative addressing 
technique can be used with both methods. For addressing, 
see the /BM System/3 Models 8, 10, 12, and 15 Components 
Reference Manual, GA21-9236. 


Direct Addressing 


The direct addressing method allows the programmer to 
represent a 16-bit instruction address by using an 
expression as an operand entry. The assembler places 
the value of the expression in the machine instruction 
which it generates. 


Two bytes are always used in the machine instruction for 
a direct address. A direct address is indicated by the 
absence of a register in the operand. 

Example: MVI A,C‘D’ 
This indicates to the assembler that a direct address is to 


be generated for location A (see Machine /nstruction 
Operands }. 


Base-Register Displacement Addressing 


Base-register displacement addressing involves setting up 
a base address from which other addresses can be 
calculated. This base address must be placed in the base 
register before the base register is used for addressing. 


One byte is always used in the machine instruction for a 
base-register displacement address and is indicated by the 
presence of a register in the operand. 


Examples: MYVI 
MVI 


ACD 
5(,1),C°D’ 


This indicates to the assembler that a base-register displace- 
ment address is to be generated for location A using base 
register 2 and for displacement 5 from base register 1. 


PAOGRAM 
_—_ $$ eee 
PROGRAMME fi 
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Figure 4. Base-Register Displacement Addressing 


The base register plus a displacement can reference any 
higher address within 255 bytes of the specified base 
address. The displacement portion of the address can be 
either absolute or relocatable; however, in either case the 
programmer indicates that a base-displacement address is 

to be generated by the presence of the register in the 
operand (see Machine Instruction Operands). \f relocatable 
displacements are used, the USING statement (see Assembler 
Instruction Statements) must be used to indicate to the 
assembler which register contains the base address and 
what address will be loaded into that register. The USING 
instruction does not load the register with the specified 
address; the programmer must use a load instruction to 
place the indicated address into the register. Figure 4 is 

an example of base-register displacement addressing. 


In Figure 4 two bytes of data will be moved from the 
location of B to the location of A. The assembler 
calculates the displacement to the addresses for A and 
B, if A and Bare relocatable and are within a positive 
255 bytes of the address in base register XR1. If either 
A or Bis over 255 bytes from the base address, an 
addressing error occurs and an assembler error statement 
is generated. If the terms A and B are not relocatable 
symbols, the assembler uses the absolute values (up to 
255) of the terms for the displacement. If absolute 
displacements are used, the USING assembler statement 
is not required. 


Note: The programmer must explicitly specify the base 
register whenever base-register displacement addressing is 
used. 


The programmer terminates the use of a previously 
defined base register through the use of the DROP 
instruction (see Assembler Instruction Statements). The 
value of the register is not affected. This register 
cannot, however, enter into base-register displacement 
addressing using relocatable displacements until specified 
again by a USING instruction. 


Relative Addressing 


Relative addressing is an addressing technique 
accomplished by adding bytes to or subtracting bytes 
from a symbol or location counter reference. The 
expression *+5, for example, specifies the location 5 
bytes beyond the current value of the location counter. 
Figure 5 is an example of relative addressing. 


In Figure 5, the instruction with the operation code 
ZAZ has a length of 6 bytes, the instruction AZ has a 
length of 5 bytes and the instruction with MVI has a 
length of 4 bytes in storage. Using relative addressing, 
the location of the AZ instruction can be expressed in 
two ways, AAA+6 or BBB—5. 


IBM 
PROGR ARE 
FAOGRAMMER 





Figure 5. Relative Addressing 


Figure 6 shows how the AZ instruction can be addressed 
relative to the nearby symbolic addresses, AAA and BBB. 


Relative addressing may also be used with base-register 
displacement addressing if the displacement is a 
relocatable term. 


Example: MVC A+5(,RX1),B(2,RX1) 


In the example, AtS is an example of relative addressing 
used with base-register displacement addressing. 


Instruction Addressing 


A symbol used as a name entry in a machine-instruction 
statement addresses the leftmost byte of storage occupied 
by that instruction. 


Data Addressing 


A symbol used as a name entry in a data definition 
instruction (see DC — Define Constant and DS — Define 
Storage) address the rightmost byte of storage occupied 
by or reserved for that data. 


Control of Location Counter 


Addressing in any computer language depends upon the 
location counter. IBM System/3 allows the programmer 
to contro] the location counter by using two assembler 
instructions: START and ORG. The START assembler 
instruction can be used to initialize the location counter 
to a desired value at the beginning of a program. The 
ORG assembler instruction can be used to change the 
value of the location counter anywhere in a program. 


| 6-bytes —}- 5-by tes —L-4-bytes 7 


| - «= 


Z2AZ (AAA+6) (BBB) 


symbolic address = (AAA) (BBB-5) 





Figure 6. Schematic of Relative Addressing 


These two instructions are described in detail under 
Assembler Instruction Statements. 


MACHINE INSTRUCTION STATEMENTS 


Machine instruction statements are symbols that 
represent machine language instructions on a one-for-one 
basis. The assembler translates these symbolic repre- 
sentations into machine language usable by the 
computer. Machine instruction statements differ from 
assembler instruction statements in that the machine 
instruction statements are executable parts of the 
program’s logic (such as MVI, ST, LA, etc), while 
assembler instruction statements are simply orders to 

the assembler, each statement directing a specific operation 
(such as DC, START, SPACE, etc). See /BM System/3 
Models 8, 10, 12, and 15 Components Reference Manual, 
GA21-9236 for a description of the execution of machine 
instructions. 


The format for a machine instruction statement is closely 
related to, but not the same as, the machine language 
instruction format which results from the assembly 
process (see Appendix A. Machine Instructions for 
machine language instruction formats). 


A mnemonic operation code is used in place of the 
actual machine language operation code and one or 
more operands provide the information required by 
the machine instruction. A remark and a sequence 
entry may be included in the machine-instruction 
statements, but they will not affect the machine 
language instruction. 


Basic Assembler Language 13 


Name Entry Attributes 


Any machine-instruction statement can contain a 
symbol as a name entry. Other machine-instruction 
statements can use that symbol as an operand. The 
assembler assigns value and length attributes (charac- 
teristics) to every sumbol used in a program. The value 
attribute of a symbol which is used as a name entry 

in a machine-instruction statement is the address of 
the leftmost byte of storage occupied by the assembled 
instruction. The length attribute of the symbol is 

the number of bytes of storage occupied by the 
assembled instruction. Refer to Lengths —Explicit and 
Implied in this section for a discussion of the length 
attributes of other types of symbols, terms, and 
expressions. 


Machine Instruction Mnemonic Codes 


The mnemonic operation codes are designed to be 
easily-remembered codes that remind the programmer 
of the functions performed by the instructions. The 
mnemonic codes are translated into machine-language 
operation codes by the assembler. IBM System/3 Basic 
Assembler provides mnemonic and extended mnemonic 
operation codes. The complete set of mnemonic codes 
is listed in Appendix A. Machine Instructions. 


Extended Mnemonic Codes 


Extended mnemonic codes are provided for the 
convenience of the programmer. They are unlike other 
mnemonic codes in that part of the information 

usually provided in the operand is in the extended 
mnemonic code itself. Extended mnemonic codes allow 
the following: 


1. Conditional branches (BC) and jumps (JC) can 
be specified mnemonically, requiring only a 
branch address as an operand. 


2.  Half-byte moves (MVX) can be specified 
mnemonically, requiring only the use of addresses 
as Operands, 


3. The supervisor call form of the command CPU 
(CCP) machine operation can be specified 
mnemonically (Model 15 only). 


Extended mnemonic codes are not part of the set of 
machine instructions, but are translated by the assembler 
into the corresponding operation code and condition 
combinations. 


See Appendix A. Machine Instructions for a list of 
extended mnemonic codes. 


Machine Instruction Operands 


This section describes (1) operand fields and subfields, 
(2) explicit and implied lengths, and (3) operand groups 
and formats. The operands of machine instruction 
statements provide the information about addresses, 
lengths, and immediate data that is required by the 
assembler to generate executable machine instructions. 
General rules for coding of operands are covered in 
Assembler Coding Conventions. 


Operand Fields and Subfields 


The left operand of a pair is called operand 1, or 
operand field 1; the right operand is called operand 2, 

or operand field 2. An operand field may include one 
or two subfields (length subfield, register subfield) 

as in the following example of base-register displacement 
addressing. 


Example: 40,2) 


The above operand field contains a displacement entry, 
AO, and a register subfield entry, 2, representing index 
register 2. The following rules apply to the coding of 
subfields: 


l. Parentheses must enclose a subfield or subfields. 
2. Blanks cannot be used within subfield parentheses. 


3. |Acomma must separate two subfields within 
parentheses (L,R). 


4. ‘If the first subfield of a pair is omitted, the 
comma that separates it from the second subfield 
must be retained (,R). 


5. If the second subfield of a pair is omitted, the 
comma separating the pair must also be omitted 


(L): 


6. If both subfields are omitted, the separating 
comma and the parentheses must also be omitted. 


Operand subfields can contain immediate data, length, 
or register information. Only absolute expressions 
and self-defining terms may be used as subfield entries. 


Lengths — Explicit and (mplied 


A length subfield in an operand may be either explicit 
orimplied. To imply a length, the programmer omits 
the length subfield from an operand. When a length 
specification is not included in an operand requiring 

a length, the assembler includes the implied length of 
the first operand, such as the length attribute of a name 
entry (see Name Entry Attributes in this section). 

The length attributes of various terms and expressions 
are shown in Figure 7. 


An explicit length is written by the programmer in the 
operand as an absolute expression. The explicit length 
overrides any implied length. 


Term or Expression Length Attribute 
1. Name entry symbol Length, in bytes, of the 
of amachine-instruction — instruction. 


Length, in bytes, of the 
instruction in which tt 

appears (except in the EQU 
assembler statement, where the 


2. Location-counter 
reference (*) 


length attribute assigned is one). 


Length attribute of the 
leftmost term in the 
expression. 


3. Expression 


4. Self-Defining Term Length attribute is one. 


5. START name entry Length attribute is one. 


NOTE: See also Subfield 3 -- Length under Data Defining 
fnstructions. 


Figure 7. Length Attributes of Terms and Expressions 


Operand Groups 


Machine-instruction statement operands are divided 
into six groups. The characteristics of each group are 
as follows: 


Group 1: Two-operand format in which a length is 
explicit or implied in both operands. 


Group 2: Two-operand format in which a length can 
be explicit in either operand, but not in both. If 
length is not explicit in either operand, the assembler 


uses the implied length of operand 1. 


Group 3: Two-operand format in which a length 
cannot be specified. 


Group 4: One-operand format in which only immediate 
data may be used. 


Group 5: Two-operand format in which both operands 
are immediate data. 


Group 6: Two-operand format in which operand | is 
used by the assembler to calculate a positive displacement 
and operand 2 is immediate data. 
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Figure 8 shows the allowable operand formats for each operand (I-field) is not used since the information is 
operand group. The instructions using each operand inherent in the mnemonic (see Extended Mnemonic 
group are also listed. Refer to Appendix A. Machine Codes in this section). 

Instructions for the related machine-instruction formats. 


For the extended mnemonics of the MVX instruction, Data movement is from operand 2 to operand 1 ina 
the I-field information is inherent in the mnemonic and two-address format instruction (group | and group 2). 
the I-field is omitted from the operand. For the extended This operand order is equivalent to that of machine 
mnemonics of the BC and JC instructions, the second instructions. 



































































GROUP INSTRUCTIONS ALLOWABLE OPERAND FORMAT 
1 ZAZ,AZ,SZ AA A(L),A D{,R),A D(L,R),A 
A,A(L) A(L),A(L) D{(,R),A(L) D{L,R),A(L) 
A,D(,R) A(L),D(,R) D{,R),D(,R) D{L,R},D(,R) 
A,D(L,R) A(L),D(L,R) D(,R),D(L,R) D(L,R}),D(L,R) 
2 MVC,CLC,ALC AA A(L),A D(,R),A D(L,R),A 
SLC,ITC,ED A,A(L) A({L),D(,R) D(,R},A(L) D{L,R),DGR) 
A,D(R) D(,R),D(,R) 
A,D(L,R) D(,R),D(L,R) 
MVX A,A(I) AMI)A D{(,R),A(I) DU,R},A 
A,DU,R) A{1),D(,R) D(,R),DU,R) DUI,R),DUR) 
3 MVI,CLI,SBN 
SBF,TBN,TBE 
TIO,SNS,LIO 
BC 
L .ST,A,LA D{,R),R 
SCP* uCPp* 
4 APL,SVC* 
5 HPL,SIO,CCP* 
6 





*Madel 15 oniy. 


the following codes are used to describe the possible operand formats: 


CODE MEANING ACCEPTABLE FORM 
A Address Relocatable expression, absolute expression, or self-defining value. 
D Displacement Relocatable expression, absolute expression, or self-defining value. 
L Length Absolute expression or self-defining value. 
R Hegister Absolute expression or self-defining value. 
t Immediate Data (bit masks, Absolute expression or se!f-defining vajue. 


condition bit masks, or 
control bits to be used in 
the instruction) 


Figure 8. Operand Format by Group 
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In groups 3, 5, and 6, the Q-code operand ts always 
on the right. See Appendix A. Machine Instructions 
for an explanation of Q codes. 


ASSEMBLER INSTRUCTION STATEMENTS 


When writing a prograrn the programmer uses two types 
of statements: executable instructions and instruction 
statements to the assembler. The executable instructions 
are the machine instruction statements. These are 
symbolic representations of the programmer’s logic, 

such as branch, move, or compare, which are translated 
into machine language by the assembler. 


Assembler instruction statements, on the other hand, do 
not generate executable machine codes. They are 
instnictions that control specific assembler functions. 
These instructions are used to set up areas in storage, to 
define data, to equate symbols, and to control program 
listings, location counter, statement formats, and types 
of addressing. In the remainder of this section, the 
individual assembler instruction statements are 
discussed. 


Sy mbot Definition Instruction 


EQU-—Equate Symba/ 


The EQU instruction is used to equate symbols with 
register numbers, immediate data, or other arbitrary 
values. The EQU instruction defines a symbol by 
assigning to it the length and value of the expression 
in the operand field of the EQU instruction. The EQU 
instruction has the following format: 


Sa 
OPERATION ; OPERAND 





EQU an expression 


The expression in the operand field can be either 
absolute or relocatable. Any symbol appearing in 
the operand field must have been previously defined. 
Figure 9 illustrates how this instruction can be used 
to equate a symbol with the contents of the operand. 


In Figure 9, MAX has the value of TEST + X‘3FC 
(X‘102+X‘3FC or X‘4FE’) any time it is used in the 
program. The symbol STEST has the value of the first 
(left most) byte of the data area reserved by the DC 
instruction. Since the symbol on the DC (TEST) has 
the value of the rightmost byte, this type of EQU ts 
useful for addressing the leftmost byte. The symbol 
REG? in any statement is the same as using the number 
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Figure 9. EQU Assembler Snstruction 
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Data Defining Instructions 


Two data defining instruction statements are available: 
Define Constant (DC), and Define Storage (DS). These 
instructions are used to enter data constants and to 
reserve areas in storage. Each instruction can have a 
name field entry (symbol) to which other instructions 
can refer. 


OC—Define Constant 


The DC instruction is used to initialize a storage 
location with a desired value. The IBM System/3 

Basic Assembler Language allows six types of constants: 
storage address, binary, character, decimal, hexadecimal, 
and integer. The format of the DC instruction is as 
follows: 


OPERANDB 


' Duplication I Type | Length , Constant 


Factor __, (2) , (3) | (4) 
(1) | 7 | 





Notice that the operand of the DC statement consists 
of four subfields. The first three describe the constant 
and the fourth provides the constant. The only blanks 
pernutted within an operand field are blanks embedded 
in a character constant. The symbol that identifies the 
DC statement receives the value of the address of the 
rightmost byte of the area defined by the statement. 


Subfield 1~Duplication Factor: This subfield enables the 
programmer to repeat the constant in storage. The constant 
will be generated the number of times indicated by the 
entry in the first subfield. This entry can be any unsigned, 
nonzero, decimal value, | through 65535. If this subfield 

is omitted, a duplication factor of | is assumed. This 
duplication factor is applied after the constant is fully 
assembled. If duplication is specified for an address cons- 
tant containing a positive location counter reference, the 


value of the location counter used in each duplication is 
increased by the length of the constant. 
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Subfield 2—Type: This subfield defines the form of the 
constant being entered. From the type specification, the 
assembler determines how it is to interpret the constant 
and translate it into the appropriate machine format. The 
type entry is specified by one of the letter codes A, B, C, 
D, X, or I (see Subfield 4 — Constant for related meanings). 
The type entry is required. 


Subfield 3—Length: The third subfield describes the 
number of bytes required by the constant. The entry for 
this subfield may be written two ways: 


1. Ln, where n is an unsigned, nonzero, decimal value. 
The value of n is as follows: 


n= 1-256 for ], B, C, X corstants 
n= 1-31 for the D constant 
n= 1-3 for an A constant 


2. L (absolute expression), where an absolute 
expression is enclosed in parentheses. The value 
limits for the absolute expression are the same as 
those for nin the previous paragraph. A location 
counter reference is not allowed in this expression. 


The total area allocated for this constant is the result of: 
Duplication Factor * Length=Total Area. The length 
entry is required. 


Subfield 4—Constant: This subfield supplies the constant 
that was described in subfields 1 through 3. In general, the 
address constant (type A) is enclosed in parentheses, while 
the data constants (types B, C, D, ], and X) are enclosed in 
apostrophes. An entry in the constant subfield of a DC 
Statement is always required, 


Address Constant {A}: This constant is used to load an 
address into a storage area. 

Example: SYMBOL DC AL2 (BETA) 
In this example, the address represented by the symbol 
BETA will be stored in the 2-byte field addressed by 
SYMBOL. The full 24-bit final expression result is trun- 


cated on the left to fit the length of the constant. The 
maximum length of an address constant is 3. 


Binary Constant (8): This constant is used to create bit 
patterns and masks. 


Example: SYMBOL DC 1IBLI‘10011’ 

The byte of storage addressed by SYMBOL will contain 
00010011. Truncation or padding with binary zeros 
occurs on the left if the constant is not the length speci- 
fied. This constant is enclosed in apostrophes. Each digit 
within the apostrophes represents a single bit in storage, 
and each eight bits specified will occupy one byte of 
storage. 


Character Constant (C}: This constant can be used to 
place a string of characters in storage. 

Exampie: SYMBOL DC 1CL1I7‘PLANT 5 PAYROLL’ 
The byte of storage addressed by SYMBOL will contain a 
blank, and the byte of storage addressed by SYMBOL-16 
will contain the character P. 


Note: Two blanks have been padded on the night of the 
character string. 


If the constant is not the specified length, truncation or 
padding with blanks will occur on the right. Each 
character (including blanks) within the apostrophes will 
occupy a byte of storage. If an apostrophe occurs within 
the string of characters, it must be represented by a 
double apostrophe. 


Decimal Constant {D}: This constant can be used for 
arithmetic purposes. 

Example: SYMBOL DC DLS‘125.66’ 
This constant will appear in zoned-decimal form in a 5-byte 
storage field, addressed by SYMBOL. The decimal point 
is used only as a convenience for the programmer, and 
is nor assembled into the constant. The value of the 
constant is calculated without the decimal point. Trunca- 
tion or padding with decimal zeros occurs at the left of the 
field, if necessary. Signed decimal constants are permitted, 
making it possibile to have a decimal constant with a nega- 
tive value. Each decimal digit will occupy one byte of 
storage. 


Hexadecimal Constant (X}: This constant is used to 
associate a hexadecimal value with a symbol in a defined 
area In storage. 

SYMBOL DC IXL6‘8ACI4’ 


Example: 


The 6-byte field addressed by SYMBOL will contain the 
following 12 hexadecimal digits: OOOOQQO8AC14. 


Truncation or padding with hexadecimal zeros occurs at 
the left. Each two digits between apostrophes will occupy 
one byte of storage. 


Integer Constant {I}: This constant is used for fixed-point 
binary arithmetic. 

Example: SYMBOL DC. 1IL2'-7 
A negative number may be used for an I constant. The 
negative constant is placed in storage in its two’s-comple- 
ment form. This example would appear in storage in bit 
form as 1111111111111001. There is always a positive 
equivalent to a negative constant; in the above example, it 
is hexadecimal FFF9 or decimal 65,529, The range of I 
constants must be within —2°“+] to 2°“—1. If the number 
is positive, it is padded on the left with O-bits. If the 
number is negative, it is padded on the left with 1-bits. 


DS~—Defines Storage 


The DS instruction is much like the DC instruction. It 
assigns a symbol to an area of storage. Unlike the DC 
instruction, the DS instruction only reserves the area of 
storage, it does not insert data. A constant subfield cannot 
be used with a DS statement. The following illustration 
shows the DS format. 


NAME ; OPERATION OPERAND 


—_— 
type ; fength 
| factor | | 


duplication 





A duplication factor of zero can be used in a DS statement 
if the programmer wishes only to assign a length to its 
corresponding symbol. The symbo! will be given the value 
of the current location counter minus one. The type and 
length subfields must follow the same rules as for the DC 
statement. 


The duplication factor can be used by the programmer to 
specify a reserved area larger than 256 bytes. 


Example: SYMBOL DS 3CLI100 


This instruction would reserve a 300-byte area, which would 
be referenced on the right by the narne entry SYMBOL. 
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Listing Control Instructions 
The listing control instructions aid the programmer in 


documenting his assembler listing. These instructions are 
TITLE, EJECT, SPACE, and PRINT. 


TITLE — Identify Assembly Output 


The TITLE instruction enables the programmer to identify 
assembled object cards and assembler listings. 


OPERAND 


NAME , OPERATION 


a sequence of characters 


label or blank TITLE 
| enclosed in apostrophes 





The name field entry can consist of a maximum of six 
characters. The first character may be numeric. The 
contents of the name field in the first TITLE card is punch- 
ed into the sequence field of all object cards produced by 
the assembler. This name field entry also appears in all 
listing header fields. 


The name on the TITLE statement is not the object pro- 
gram name, but may be the same as the object program 
name. See START — Start Assembly. The name field 
entry is used only for identification and may not be 
referenced by the program. 


The operand field contains a sequence of characters 
enclosed in apostrophes. Any embedded apostrophes must 
be represented by a double apostrophe. The contents of 
the name and operand fields are printed at the top of each 
page of the assembler listing. 


A program can contain more than one TITLE statement. 
When a new TITLE statement is read, the listing is advanced 
to a new page before the new heading is printed. The name 
fields of all subsequent TITLE statements are ignored by 
the assembler. The TITLE instruction is not listed on the 
asseinbler listing, but it does increase the statement counter 
by one. Figure 10 shows an example of the TITLE 
statement. 
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Figure 10. Use of the TITLE Statement 


EJECT — Start New Page 


The EJECT instruction causes printing to begin at the top 
of a new page, under the page heading. Through the use 
of the EJECT statement, the programmer can separate 
routines in the assembler listing. The format of the EJECT 
assembler instructions is as follows: 


NAME | OPERATION | OPERAND j; 





i 
blank EJECT | Not Used 


In Figure 1], the EJECT instruction is used to separate 
executable instructions from the data-defining assembler 
statements. The EJECT instruction is not listed on the 
assembler listing, but it does increase the statement counter 
by one. The coding example in Figure 11 shows the position 
of EJECT. Note that the corresponding statement number 
(4) has been omitted in the listing. Statement number $ 
appears at the top of the next page, under the heading. 


SPACE ~ Space Listing 


This instruction is used to insert one or more blank lines 
between statements in the assembler listing: 


1 


OPERATION 1 


NAME f 


OPERAND 


decimal value or a blank 





IBM 








PROGRAM 1 


PAQGAAM 


PROGAAMMER 














An unsigned decimal value is used to specify the number 
of blank lines that are to be inserted. If the operand con- 
tains a blank, a zero, or a 1, one blank line will be inserted. 
If the value of the operand exceeds the number of lines 
remaining on the current page, the instruction has the 
same effect on the listing as an EJECT statement. The 
SPACE instruction, like the EJECT instruction, is not 
listed on the assembler listing, but does increase the state- 
ment counter by one. 
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Listing Page 2 
Statement Operation Operand 
number 
Figure Lf. EJECT Instruction 
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PRINT—Print Optional Data 


The programmer can control the printing of an assembly 
listing by using the PRINT instruction. A program can have 
any number of PRINT instructions. Each PRINT 
instruction controls the listing until the next PRINT 
instruction is encountered. 


NAME OPERATION OPERAND 


blank operand 





PRINT 


The operand field can include entries from the following 
groups (one or two operands for the Model 10, one, two, 
or three operands for the Model 12 and the Model 15): 


1. ON —A listing is printed. 
OFF—No listing is printed. 


2. DATA-—Constants are printed out in full on the 
assembler listing. 
NODATA-Only the leftmost 8 bytes of the con- 
stants are printed on the assembler listing. 


3. (Model 12 and Model 15 only) 
GEN—Print statements generated by the macro 
processor if not overridden by other listing 
control statements. 
NOGEN-—Suppress printing of statements gen- 


erated by the macro processor. 
Operand entries must be separated by a comma. 


The ON, GEN and DATA conditions are assumed by the 
assembler unless otherwise specified by a PRINT instruc- 
tion. If an operand is omitted, it is assumed to be un- 
changed and continues according to its last specification. 
Both of the examples in Figure 12 would cause a listing 
to be printed with only the leftmost 8 bytes of the con- 
stants appearing in the listing. 
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Figure §2. The PRINT Statement 
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Program Control Instructions 


/CTL—Input Format Control 


The ICTL statement permits the programmer to change 
the normal bounds of the source program statemenis. 
When included, the ICTL instruction must precede ail 
other source statements. This instruction can be used 
only once during a program. An invalid or mispositioned 
ICTL statement causes termination of the assembly. 


NAME | OPERATION i: OPERAND 


blank ! ICTL | 


two decimals in the form of BE 





The term B specifies the beginning column and the term 
E specifies the ending column of the source statement. 
The beginning column must be within columns 1-48. The 
ending column must be within columns 49-95. The 
column after the ending column must be blank. 


When an ICTL statement ts not included in a source 
program, the beginning column is assumed io be column 
1, and column 87 is assumed to be the ending column. 
Figure 13 is an example of the ICTL instruction. In 
Figure 13, the name field would start in column 14 

and the remark field would end in column 80. 
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Figure 13. The ICTL Statement 
ISEQ—I/nput Sequence Checking 


The ISEQ instruction is used to check the sequence of 
source cards. Sequence checking begins with the first 
card after the ISEQ instruction. The first sequence entry 
is taken from the sequence identification field of the 
ISEQ statement. The sequence entry on the next card is 
then compared to the previous sequence value. The ISEQ 
assembler statement has the following effect: 


1. The sequence entries on source-statement cards are 
checked for ascending order. 


2: Statements that are out of order and statements 
without sequence entries are flagged in the assembler 
listing. 

3. The total number of tlagged statements is noted at 


the end of the assembler listing. 


For example, with the sequence values 13, 27, 31, 6,8, 
45,47, and 48, the card numbered 6 and the card with- 
out a sequence value would be out of sequence. The 
assembly does not stop due to a card being out of 
sequence order. In this example, the card numbered 6 
and the card without a sequence entry would be flagged 
in the error field of the listing. If sequence checking is 
requested, there is a statement at the end of the listing 
showing that two cards were out of sequence. 


The assembler will not check the sequence unless requested 
to do so by use of the ISEQ statement. 
The following is the ISEQ instruction format: 


NAME OPERATION OPERAND 


blank ISEQ 


two decimal values in the 
form L, R; or blank 





The operand entries, L or R, specify the leftmost (L) and 
rightmost (R) columns of the field to be sequence checked. 
The value of L must be within the range of 73 through 96 
(inclusive). The length of the sequence field may be from 
1 to 8, If the programmer wants to discontinue sequencing, 
an ISEQ instruction card with a blank operand is inserted. 


The sequence field must be separated from the last column 
of the source statement by at least one blank position. 
The last column of the source statement is column 87 
unless otherwise specified by the [CTL assembler state- 
ment. The sequence field must not appear before the last 
column +] of the source statement. If the sequence field 
is to Start before column 89, the [CTL statement must be 
used to redefine the beginning and end of the source state- 
ment. For example: 


Source statement is defined within 
colunins 1-71 


ICT Wael 


ISEQ = 73,80 Sequence field is in columus 73-80 


START—Start Assembly. 


The START instruction may be used to initialize the 
location counter to a desired value at the beginning of a 
program. The format of the START instruction is: 


OPERATION OPERAND 





START 


a self-defining value or blank 


symbol 


The assembler uses the single self-defining term in the 
operand as the initial Jocation-counter value. For example, 
either of the START instructions in Figure 14 could be 
used to indicate an initial assembly location of 2040. 


If the operand of a START instruction is blank, the 
location counter is initialized with a value of zero. it 
neither an ORG nor a START instruction is used to initial- 
ize the location counter, the initial value is also zero. 


A START instruction must not be preceded by any state- 
ment that affects or is dependent upon the setting of the 
location counter. 


The name entry in the name field of aSTART instruction 
provides the program with an identifier name called the 
module name. The module name may be the same as the 
first TITLE statement. 


Note: Certain naming restrictions apply when assigning 
names for your program. For more information on naming 
restrictions, see /BM System/3 Model 10 Disk System 
Control Programming Reference Manual, GC21-751 2. 
IBM System/3 Model I2 System Control Programming 
Reference Manual, GC21-5130, JBM System/3 Model 15 
System Control Programming Reference Manual, 
GC21-5077 (Program Number 5704-AS]), or /BM 
System/3 Model I5 System Control Programming 
Concepts and Reference Manual, GC2)-5162 (Program 
Number 5704-AS2). 


This program naine may be used for program linkage. If 
the START card is not included in the program, or 1f the 
name field is blank, a default program name is assigned. 
See the MODULE NAME MISSING diagnostic in 
Appendix C. System/3 Assembler — Source Language 
Error Codes and Diagnostics. 
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Figure 14. Using STARY to Initialize the Location Counter 
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ORG—Set Location Counter 


The ORG statement sets the location-counter value. 


OPERAND 


NAME | OPERATION 


| 

blank operand or an expression A 

| optionally followed by two absolute 
expressions in the form A, B, © 





The location counter is set to the smallest value greater 
than or equal to A which is C more than a multiple of B. 
In the following example, A can be either a relocatable or 
absolute expression; B and C must be absolute expressions. 
The default values for B and C are | and 0, respectively. If 
the second operand (B) is omitted, the third operand (C) 
must also be omitted. 


Current New 

Location Location 

Counter A B C Counter 
273 . 1090 59 350 
340 * LOC 50 350 
350 - 100 50 350 
504 = 256 0 512 
TS0 1000 one —- 1000 


All symbols used in the expression A must have been 
previously defined. The value specified by the ORG state- 
ment must be greater than or equal to the starting location- 
counter value. 


If previous ORG statements have reduced the location- 
counter value for the purpose of redefining the current 
program, an ORG instruction with a blank operand is used 
to set the location counter to the previous maximum 
assigned address plus one (see Figure 15). 


———— 
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Figure 14. Using ORG to Control the Location Counter 
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USING — Use Register for Base-Displacement Addressing 


The USING statement specifies the register to be used for 
base-displacement addressing and also specifies the base 
address that the assembler will assume to be in that register 
at object time. The USING statement does not load the 
base address into the register specified. This must be done 
by the programmer before the register can be used for 
base-register displacement addressing. See Addressing in 
this section. 


NAME  } CPERAND 


OPERATION | 





In the preceding format, term V represents an expression. 
Term R represents an absolute expression with a value of 
] or 2. Term R specifies the index register assumed to 
contain the base address represented by the term V. The 
programmer has the cption of changing the base register 
or base address at any time by the insertion of another 
USING statement. Two USING statements enable the 
programmer to use the two aie t eet ters as base registers 
to two different portions of main storage. 


In Figure 16, register 2 is loaded with the address of 
ADRES1, which will be used as the base address in instruc- 
tions following the USING statement. 





Operaven 
Boa o10os 2 





Figure 16. Specifying a Base Register With the USING Statements 


DROP — Drop Base Register 


The DROP instruction specifies a base register that is no 
longer to be used as a base register. The programmer can 
reinitiate the base register with another USING 


instruction. 


OPERATION | 


NAME { OPERAND 


blank !' pROP 





| specified register 


The operand must contain an absolute expression of 
either 1 or 2. This absolute expression represents the 
register that is no longer to be used as a base register. 
The contents of the register are unaffected by the DROP 
instruction. Figure 17 shows an example of the DROP 
instruction. Another USING statement is used to 
specify register 1 as the new base register. 
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Figure 17. Example of the DROP Statement 


ENTRY — Identify Entry Point to Program 


This instruction identifies symbols, defined in the current 
program, which can be used as entry points from other 
programs. 





OPERAND 


| OPERATION | 


any relocatable 
symbol found in the 
name field of the 
current program 





The symbol used in the ENTRY operand can also be refer- 
enced by any other program provided that program uses 
the same symbol in the operand of an EXTRN statement. 
See the example given in the discussion of EXTRN for 
additional information on the use of ENTRY. 


EXTRN — Identify External Symbols 


This instruction identifies symbols, used in the current 
program, which are defined in another program. Each 
symbol in the operand of an EXTRN statement must be 
identified by an ENTRY statement or be the module name 
in some other program. 


NAME | OPERATION | OPERAND 


one relocatable symbol 


EXTRN not found in the name 


blank 


gram, optionally followed 
by an aosolute expression 
In parentheses 


| field of the current pro- 
| 
| 





The external symbol cannot be used in a Name field in the 
Same program that describes that symbol as an EXTRN. 


An EXTRN subtype can be specified for the EXTRN 
symbol by following the symbol with an absolute 
expression enclosed in parentheses. The value of the 
absolute expression cannot be less than zero nor more 
than 255. Any symbol in the expression must have been 
previously defined. For an explanation of the subtype 
values and their meanings, see JBM System/3 Overlay 
Linkage Editor Reference Manual, GC21-756]. 
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Figure 18 shows how ENTRY and EXTRN can be used to 


make two or mote programs act as one main program through 


sharing data and control. The main program defines sym- 
bols A, B, and C and identifies them as entry points. These 
same symbols are identified as EXTRNs (external symbols) 
in the subroutine. This allows the subroutine to use these 
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Figure 18. Example of ENTRY and EXTRN Statements 
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symbols just as it would if the symbols had been defined 

in the subroutine. SUBRO1, on the other hand, is defined 
and identified as an entry point by the subroutine and as an 
EXTRN, external symbol, by the main routine. These four 
symbols — A, B, C, and SUBRO1 — can now be used inter- 
changeably by both the main routine and the subroutine. 


The main routine has control first. It executes instructions 
and then branches to SUBROI which is defined as an entry 
point in the subroutine. Instructions in the subroutine are 
executed. Notice that the subroutine uses symbols A, B, and 
C which were defined in the main routine. Control is then 
passed back to the main routine. 


Note: The actual resolution of symbols between programs 
is not performed by the assembler. 


END—End Assembly 


The END instruction terminates assembly of the program. 
The operand of this instruction can contain an expression 
(usually a name field entry) which specifies the address 

to which contro] is to be transferred after the program is 
loaded. The END instruction must be the last statement 
in the program. The relocatable expression in the operand 
must not contain external symbols. The start-of-control 
address must be specified for programs loaded with the 
absolute loader. 


) | | 
NAME , OPERATION ! OPERAND 


blank ' END 








§ arelocatable expression or a blank 







Figure 19, shows an END statement. In this example, the 
program receives control at the address corresponding to 
BEGIN when it is executed. 
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Figure 19. Designating an Entry Point With the END Statement 


ASSEMBLER CONTROL STATEMENTS 


Two control statements are used: The HEADERS state- 
ment and the OPTIONS statement. Up to 45 of these 
control statements may be used, in any order. Each state- 
ment is limited to six operands. All contro] statements 
must appear before any assembler source statements. 


HEADERS Statement 


The HEADERS control statement specifies control infor- 
mation other than output control information to the 
assembler. The programmer may specify a category level 
for the object module through the CATG operand, or the 
length of the control section for any subtype 4 or 5 
EXTRNs in the assembler through the COMLA and COMLS 
operands. For an explanation of category levels and 
subtype 4 and 5 EXTRNs, see JBM System/3 Overlay 
Linkage Editor Reference Manual, GC21-7561. 


The format of the HEADERS statement with the CATG 
operand is: 


BHEADERSBCATG-nnnnn 


a 


Column 2 At least Decimal category 
or greater one blank level 





nnnnn 

nnnnn is a one to five character decimal string whose value 
must be less than 00256. If more than one CATG operand 
appears in the assembler control statements, the value of 
the last valid operand is used for the module category level. 
The module category level is placed in the module ESL 
record. 


The format of the HEADERS statement with the COMIA 
and COMLS operands is: 


BHEADERSBCOML4-nnnnn, COMLS-nnnnn 


Column 2 At feast 
or greater one blank 


Decimal! control 
section length 
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nnnnn isa one to five character decimal string whose value 
must be less than 65536. If more than one COML4 or 
COMLS operand is present in the assembler control state- 
ments, the length in the last valid operand is used for the 
appropriate subtype control section length. The lengths 
specified are placed in the ESL records for the subtype 4 
or 5 EXTRNs. 


OPTIONS Statement 


An OPTIONS statement is a control statement for 
assembler control options. All OPTIONS statements must 
precede the source deck. The user may specify the follow- 
ing assembler options on OPTIONS statements: DECK, 
NODECK, LIST, NOLIST, XREF, NOXREF, REL, 
NOREL, OBJ, OBJ(T), OBJ(P), NOOBJ. XBUF-nnnnn 
and NOXBUF are also available to users having program 
5704-AS2. They may appear on one statement in any 
order, but must be separated by commas. If the pro- 
grammer prefers, separate statements may be used for 
each option. The OPTIONS keyword must start in 
column 2 or higher (the preceding column must be blank), 
and there must be one or more blanks between the key- 
word and the selected options. Blanks are not allowed 
between the selected options. 


The following example shows options appearing on one 
statement: 


BOPTIONSKBDECK, LIST, NOXREF, REL 


At least one blank between 
keyword and options. 


Column 2 


or greater. 





More than one OPTIONS statement may be used. In the 
following example, three statements are used: 


BOPTIONSBDECK 


BOPTIONSBLIST 





BOPTIONSBNOXREF 
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The following list provides a brief description of all the 
options available: 


Option 


DECK 


NODECK 


LIST 


NOLIST 


XREF 
NOXREF 
REL 


NOREL 
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Explanation 

The object program is punched. When an 
object program is punched, it is preceded 
by a// COPY OCL card and followed by 
a// CEND OCL card. These cards are 
provided for placing the object program in 
the R library with the library maintenance 
utility program (SMAINT). 

The object program is not punched. 

The following sections of the assembler 
listing are printed (see Assembler Listing 
in this section for a description of the 
listings): 

® Options information 

@ External symbol list 

@ Source and object program listing 

@ Diagnostic listing 

@ Error suminary statements 

Only the following listings are printed: 


@ Options information 


@® Any statements in error and the 
associated diagnostics 


@ Error summary statements 


The NOLIST option overrides all 
assembler PRINT statements. 


A cross-reference listing is generated. 

A cross-reference listing is not generated. 
A relocatable object program is produced. 
An absolute object program is produced. 
Note: Absolute object programs can only 
be used as stand-alone programs; that is, 


programs which are not dependent on any 
other disk management system program. 


OBJ or 
OBJ(T) 


OBJ(P) 


NOOBJ 


On the Model 10 an absolute loader will pre- 
cede the absolute deck if DECK is specified 
and if MFCU2 is specified on the // PUNCH 
statement. On the Model 1? and Model 15, 
an absolute loader will precede the absolute 
deck if DECK is specified and if the 
SYSPCH device is MFCU, 1442, or MFCM 
(Model 15 only). The loader punched will 
program load only on the device type on 
which it was punched. A blank card is in- 
serted between the absolute loader and the 
object program. This blank card and the 
OCL cards included with the object program 
do not affect the operation of the absolute 
loader and may be discarded. 


To prevent cataloging of the absolute object 
program when NOREL is specified, you 
should specify NOOBJ. 


The object program is placed in the R 
library with a retain entry of temporary. 


The object program is placed in the R library 
with a retain entry of permanent. 


The object program is not placed in the R 
library. (See Placing Assembler Subroutines 
in R {Routine} Library in this section.) 


If no OPTIONS statement is used, the assembly is processed 
as though DECK, LIST, REL, XREF, and OBJ had been 
specified. NOXBUF is also assumed with program 


5704-AS2. 


XBUF-nnnnn Specifies the size of the disk external buf- 


NOXBUF 


fers the user has requested. From one to 
five numeric digits may be used to specify 
the size of the disk external buffers (pro- 

gram 5704-AS2 only). External buffers 

should not be specified due to performance 
considerations if the program size including 
physical disk buffers does not exceed 56K. 
However, if external buffers are specified, 
they should equal the size of the physical 
disk buffers that normally would be set 

aside within the program. 


Specifies no external buffers are requested 
for the program (program 5704-AS2 only). 


If DECK or OBJ is entered on the OPTIONS statement and 
there are errors in the assembly, a halt is issued. 


OCL STATEMENTS FOR ASSEMBLER 


The loading and running of a disk-system program, 
including the assembler, is done under control of a group 
of programs called disk system management. The user 
tells disk system management to run a program through 
the use of Operation Control Language (OCL) state- 
ments. It is necessary to have a set of OCL statements 
each time a program isrun. This section discusses the 
OCL statements required for use of the assembler. For 

a complete discussion of OCL, see JBM System/3 

Model 10 Disk System Control Programming Reference 
Manual; GC21-7512, IBM System/3 Model 12 System 
Control Programming Reference Manual, GC21-5130, 
IBM System/3 Model 15 System Control Programming 
Reference Manual, GC21-5077 (Program Number 
5704-AS1), or JBM System/3 Model 15 System 

Control Programming Concepts and Reference 

Manual (Program Number 5704-AS2), GC21-5 162. 


The assembler language source program can be obtained 


from either a system input device, a source library entry, or 


the macro processor. If the source records are obtained 
from an 80-column device, they are padded with 16 
blanks before being placed in the $SOURCE file. In this 


case, the user should provide an ICTL statement to prevent 
the assembler from processing the sequence field of the 


80-column record. 


OCL For Loading the Assembler 


Source Program on System Input Device (Cards) 


Figure 20 is a sample set of OCL statements to load the 
assembler when the source program is on cards. The unit 
parameter (F1) on the // LOAD statement specifies 
where the assembler resides. The codes for the disk 
drive upon which the assembler resides are: 


e Rl —-drive | 


e Fl drive |] 


@e R2~ — drive 2 


@ F2 — drive 2 
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The first // FILE statement specifies the attributes and 
location of the file used for source program residence 
during the assembly process. 


The second // FILE statement specifies attributes and the 


location of the file used for object output of the assembler. 


The third // FILE statement specifies attributes and 
location of the file used for assembler working storage 
during the assembler process. 


The SWORK2 // FILE statement is optional on the 

Model 10 Disk System. If it is not supplied, the assembler 
allocates the work space. However, by specifying the 
proper placement of file locations, as in Figure 20, this 
file statement improves the performance of the assembler. 
It should, therefore, be specified. 

















In all three // FILE statements, the PACK and UNIT 
parameters indicate the location of the file named in the 
NAME Parameter. In addition to R1, F1, R2, and F2, the 
UNIT parameter can specify D1, D2, D3, and D4 for the 
Model 15. The RETAIN parameter snould reflect a scratch 
file(s). The TRACKS parameter contains the number of 
tracks required for that file. The user should choose the 
number of tracks required in accordance with the space 
requirements charts in the Assembly Time Data File 
Requirements section. See /BM System/3 Model 10 Disk 
System Control Programming Reference Manual, 
GC21-7512, IBM Systemn/3 Model 12 System Control 
Programming Reference Manuai, GC21-5130, and /BM 
System/3 Model 15 Svstem Control Programming 
Reference Manual (Program Number 5704-AS1), 
GC21-5077, or JBM System/3 Model 15 System Control 
Programming Concepts and Reference Manual, GC2]-5162, 
(Program Number 5704-AS2) for further information. 


Source Program in a Source “Library 


Figure 2{ shows a sample set of OCL siatements usea when 
the source program is in the source library. 
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Figure 20. Assembler OCL Statements (Source Program on Cards) 
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Note that the additional OCL statement // COMPILE is 
required. The following entries in the figure are optional: 
PUNCH _ This statement specifies where an object 
deck is punched. For more information on 
statement, see JBM System/3 Model 10 Disk 

System Control Programming Reference 
Manual, GC21-7512, IBM System/3 

Model 12 System Control Programming 
Reference Manual, GC21-5130, JBM 
System/3 Model 15 System Control 
Programming Reference Manual, GC21-5077 
(Program Number 5704-AS1), or JBM 
System/3 Model 15 System Control Pro- 
gramming Concepts and Reference Manual, 
(Program Number 5704-AS2), GC21-5162. 


OBJECT 
operand 


This operand is used to indicate to the 
assembler the library unit used when the 
OBJ option is used on the OPTIONS 
statement. 


The // LOAD and // FILE statements are as described in 
the first example. The // COMPILE statement specifies 

both the location of the source library and the required 

source program within the library. The // COMPILE 
statement may appear at any position between // LOAD 
and // RUN. 


Macro Processor-Produced Source Program 


The macro processor creates a source program on the 
$SOURCE file. To indicate that the macro processer has 
already loaded the $SOURCE file, external indicator U1 
must be turned on. This is done through a // SWITCH 
statement. If this indicator is on when the assembler is 
loaded, the $SSOURCE file will not be loaded. 


In the following OCL stream, the source program has been 
created on the $SOURCE file: 





STATEMENT 


Gi and 
6 wo IAN Ww Se ee Boe 7 a at ad ay ae a 


| ' ii | | | 
ieee ‘Indicate that the source file 


aon eal f has been loaded by the macro 


a pprocessor ee [| 










Iral= 19) 
ay 


TM 
ATLL 


| || 
rv TT References the source filé created | F 
IER by the macro Processor step. = 


(1) ational on Model 10 Disk Sytem 





aa 4 


| | 1 
+ 1 
| | 

| 


Note: For more information on the macro processor, see 
IBM System/3 Models 10 and 12 System Control Program- 
ming Macros Reference Manual, GC21-7562, or JBM 
System/3 Model 15 System Control Programming Macros 
Reference Manual, GC21-7608. 


Jf SWITCH Considerations 


The external indicator U1 indicates that the macro 
processor has loaded the SSOURCE file and the source 
program is not in the input stream. If this indicator is 
on when the assembler is loaded, the $SOURCE file 

is not loaded. 


When the $SOURCE file is to be loaded, external 
indicator U1 must be off. This can be ensured by 
entering the following statement after the assembler 
// LOAD statement: 





OCL For Calling the Assembler 


It is possible for the user to store a portion of the OCL 
statements required for use by the assembler in 

a procedure library. They may then be called with a 

// CALL statement, thus reducing the number of 
written OCL statements required for each assembly. 
Examples are included for source programs on cards and 
for source programs in a source library on disk. 


Source Program on Cards 
If the source program is a deck of cards, the OCL cards 


necessary to assemble the program, and the order in 
which they must appear, are as follows: 





IBM 
PACUAAM 
PAOGRAMME 
Sawai Skee ee eal 19 a} 21 i ee 
aan at th 
NL Mn Bf a 
AC RUN PTT ++ 
Sey eb 
Source Program Deck — Ht 
ug 


PEER 8 


Peli 


CeCe ae 
fi TEER Poo 
FECL CECEEHE Tt Eh rp cor 


In this example, ASM is the procedure name. F1 refers 

to the disk pack upon which the assembler OCL procedure 
is stored. In this case, it would be the fixed disk on 

drive one. 
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Source Program ina Source Library 


If the source program is stored on disk in a source 
library, the OCL format must be as follows: 





In this example, ASM is the procedure name and F1 
refers to the fixed disk on drive ]. SUBRA is the name 
of the source program. Tlie user must substitute his 
own source program name. R1 is the disk pack upon 
which the source library resides. 


Sample Assembler Procedure Stored in Procedure 
Library 


A sample assembler procedure is shown in Figure 22. The 
format is as it would appear in the procedure library. 

The // LOAD statement and // FULE statements are as 
described in preceding examples. 


OBJECT PROGRAM DESCRIPTION 


The assembler converts the source program into 

a set of control information, machine language instruc- 
tions, and data, all of which collectively are called an 
object program. There is one object program produced 
per assembly. Each object record is originally produced 
as a 64-byte field. If the object program is punches on 
the MFCU, it is translated into a 96-byte punch record 
(bytes 2 to 64 are translated 4 for 3 for punching; 

for every three 8-bit bytes. four card code characters 
are created}. See Object Program After Punch Conversion 
in this section. Each object program generated by the 
assembler contains four types of records: 






PROGRAM 


STAFEME NT 





ee ig Mh Vy ta to aD ane B “71 Om 47 45 4 GH 8 47? 4G OO 
HAS SIEM TAL a TTT Ge Ue seni rT 
NAME Boule WRK a at on SULIT FARE UAL Al) INS, TRACKS! Ud 
NAME! ISWOIR KE NOL »UNUTLE 53 IRATAUN-Sh ITIRACKE 1B | 
AME! WOR, a Y KNOL igi - [Real RETIAL INI-8I, RAIS [12 
PE PPE Perr Pee 
pitt | bse eS Tl UA. LY me | _ HLH Ys cL 
1) Optionai on + Model 10 Disk System -4++} 4444-444 IS Pet 4 


Figure 22. Sample Assembler Procedure in Source Library 
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IBM Syttem/3 Basc Arsmnbter Coding Form 





@ HEADER record 
@ ESL (external symbol list) record 


e TEXT-RLD (text-relocation directory) records 


e END record 


Record Formats 


The following paragraphs describe the format of each 
record type. 


HEADER Record 


A HEADER record with record type H is added by the 
overlay linkage editor when it processes the assembler 
object program. The HEADER record format is: 


| H | Object program information field | 


I 2 


64 
@ Byte 1 Record type identifier H. 


@ Bytes 2-64 Object program information field. 





ESL Record 
The object program name, that is the module name and all 


EXTRN and ENTRY symbols are placed in the ESL record. 
The ESL record format is: 


ESL Entries | X’00’ | 


2 6263 64 


Length ~4 


Byte 1 Record type identifier S. 


Byte 2 Length -1 of the ESL entries. 
ESL entries. Up to five MODULE, 
ENTRY, and/or EXTRN fields. 


Bytes 63-64 Filled with hexadecimal zeros. 


Bytes 3-62 










PurCHING 
LAT ACT OS 






















TEXT-RLD Records 


Text records and RLD pointers are combined in this type 
of input record. The text portion of each record contains 
the object code for the program, while the RLD pointers 
indicate where the address constants and relocatable 
operands of the text are located. If the NOREL option 
has been selected on the OPTIONS control card, there 
will be no relocation indicators in the record. The format 
for the TEXT-RLD record is: 


j i 
Text4X’00'PtRLD 


T | Length-1 | Assembled Address 


2 3 4 5 64 
Byte 1 Record type identifier T. 


Byte 2 Length - 1 (of text only). 


Assembied address of the low order (rightmost) 
text byte in the record. 


Bytes 3-4 


Bytes 5-64 Text starts at byte 5 and goes right, RLD 
starts at byte 64 and goes left. The leftmost 
end of the RLD section is marked by 
hexadecimal zeros, which fill the space 
between the Text and RLD sections. The end 
of text is always followed by at least one 
byte of X‘00’. 


END Records 


The last record in each object program is an END record. 
It contains the entry address of the object program. If the 
user did not include an operand in his source program 
END statement, the object program END record generated 
by the assembler will contain the address X‘FFFF’. The 
END record format is: 


END card program 


Byte 1 Record type identifier E. 
Bytes 2-3 


Entry address of the object program. 


Bytes 4-64 Program to transfer control to Entry address. 











Object Program After Punch Conversion 


All four types of records (HEADER, ESL, TEXT-RLD, 
and END) assume the same format when they are punched 
into cards. The punched record format, using 96-column 
cards, is as follows: 


Identification 
Sequence Fieid 


Self Check 
Number 


Record ID Data Field 


Record type identifier (H, S, T, or &). 


Column 1 


Data field, transformed 4 for 3. (For every 
three 8~bit bytes, four card code characters 
are created for System/3 96-column cards.) 


Columns 2-85 


A 2-byte self check number transformed 
4 for 3, to 3 bytes. 


Columns 86-88 


Columns 89-96 Identification/sequence field. 


The punched record format, using 80-column cards, is as 
follows: 


Self Check | Identification 
Number Sequence Field 


Record ID | Data Field Blank 

70 72 «73 80 
Column 14 Record type identifier (H, S, T, or E). 
Columns 2-64 Data field, bytes 2 to 64 of the object record. 
Columns 65-69 Blank. 


Columns 70-72 


A 2-byte self check number transformed 4 for 3, 
to 3 bytes. 


Coiumns 73-80 identification/sequence field. 


Note: When an object module is punched, it is preceded 
by a // COPY OCL card and followed by a // CEND OCL 
card. These cards are provided for placing the object 
module in the R library with the Library Maintenance 
program ($MAINT). 
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ASSEMBLY TIME DATA FILE REQUIREMENTS Work File (SWORK2)} 


There are three data files necessary at assembly time: The work file 1s a scratch file used by the assembler 
throughout the assembly process for intermediate data 
1. Source file (NAME-$SOURCE) storage. The file contains four types of data: 


2. Object file (NAME-SWORK) Fe Intermediate text 


3. Work file (NAME-SWORK2) De Symbol table entries 
Model 10 Disk System: These files must be Jocated on a OS ene 
5444 disk drives. If a // FILE statement is not provided 4 peri eawaies 
for $WORK2, the assembler allocates its own work space. , 
Model 12: These files must be located on the simulation Intermediate Text 
area. 
| | Intermediate text is made up of fixed length (J 0-byte) 
Model 15: These tiles must be located on either 3340, records. The number of fixed length records is variable 
5444, or 5445 disk drives. for each source statement, and is dependent on the 


statement type and the contents of the operand field. 
Source File (SSOURCE) YP p 

The following rules can be used to determine intermediate 
text file requirements. (The rules apply only to error- 
free source statements. A statement that contains errors 
generally requires less storage space.) 


The source file is used by the assembler for storage of the 
source program. During the job initialization procedure, 
a disk system management program places the source 
program in the source file (if the macro processor has not 
loaded the file). The source records are obtained from 
either the system input device or a source library using 
the // COMPILE statement. (See OCL statements for 
Assembly in this section.) Each source record contains 
96 bytes, so that eight records occupy three disk 

sectors in the source file. (One sector = 256 bytes, and 
is the smallest addressable unit on a disk.) Figure 23 

is a source file space requirements table showing how 


All Instructions: 


@ One record for each machine or assembler instruction, 
Or comment statement. 


@ One record if there is a name field entry. 


many tracks are required for the size of the source pro- 


gram indicated. Machine Instructions: One additional record for each 


: . | : term in the operand field. 
If the assembler is processing a source tile created by pe 






























the macro processor, the // FILE statement for $SOURCE 
3 S Si tire 
must correspond to the SSOURCE file produced in the CURES TORr any SIZE Number of Tracks Required 
(Statements) 
macro processor run. rr SS EEE OEE 
5444 * I 5445 
Object File (WORK) 100 ! 2 | 9 | 
_———<—o@ —_—— - i a a is 
200 4 4 
The object file is used by the assembler for intermediate Gicaaaae’ = : caeaas ‘eke 
2 5 6 
storage of the object program. The object records are Pa +— : io ——| 
et 400 | 7 8 
stored in four 64-byte entries per sector. (See Object | geet | 5 es Seo 
Program Before Conversion in this section.) Because each _ . Pae | 8 10 
track in the object file can contain 96 records on the 5444, 600 | 10 | 12 
80 records on the 5445, or 192 records on the 3340, two 700 | 11 | 14 | 
tracks usually are sufficient for most assemblies. See ed 
15 | 17 | 
I = J. 





*Or simulation area 


Figure 23. Source File Space Requirements Chart 
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Assembler Instructions: 


@ END, ENTRY, EQU, EXTRN, ORG, USING — One 
additional record for each term in the operand field. 


@ ISEQ, PRINT, SPACE, START — One additional record 
for each instruction. 


e TITLE — Additional records = N/8 (plus one for any 
non-zero remainder); where N is the number of 
characters in the TITLE operand field. 


@ DS/DC 


— One additional record for duplication factor 
(default or specified value). 


— Qne additional record for each term in the length 
specification. 


e DC 


~— Address constant—One record for each term in 
the address constant expression. 


— All other constants—Additional records - N/8 
(plus one for any nonzero remainder); where N is 
the number of bytes required to contain the 
converted constant plus one. 


Figure 24 is a sample list of instructions together with the 
intermediate text space requirements for each. 


~ 
@ 
a 
- 


START O 

SLC A{2),A 
MVC A(2),CON1 
ALC A(2),CON2 
HPL X’‘FF’,X‘FF’ 
DS CL2 

DC §L2’500' 

DC IL2’-320' 


3 
5 
4 
4 
3 
4 
5 
5 
2 


END ENTRY 





Figure 24. Intermediate Text Space Requirements 





Symbol Table Entries 


Whenever a symbol is used in the name field of an instruction 
(except a TITLE statement) it becomes a symbol table 

entry. When the assembler user requests a cross reference, 

all symbol table entries are added to the work file immedi- 
ately after the intermediate text. The symbol table entries 
are also 10-byte, fixed-length records. Assuming an average 
of one name entry for every four source statements, one 
sector per 100 source statements is required. 


Cross-Reference Data 


Cross-reference data is written in the same area as the 
intermediate text and symbol table entries and does not 
impose any additional space requirements. 


Error Information 


Each statement in error requires a 10-byte error record; 
therefore, a track will contain at least 600 error records. 


Work File Space Requirements 


Figure 25 is a work file space requirements table showing 
the number of tracks required for the number of source 
statements indicated. The requirements for intermediate 
text and symbol table entries are summed to get the 
table values. Approximately 40 sectors per 100 source 
statements are needed to cover most varieties of source 
statements. If a $WORK2 // FILE statement is not pro- 
vided on the Model 10 disk system assembler, the source 
file (SSOURCE) size is used for the work file size. 


Source Program Size Number of Tracks Required 
(Statements) 





“Or simulation area 


Figure 25. Work File Space Requirements Chart 
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OPERATING PROCEDURES 
Placing Assembler Subroutines in R (Routine) Library 


Assembler subroutines can be placed on disk in the R 
library by two methods. 


J. Punching an object deck and using the Library 
Maintenance program (SMAINT) to place it in the 
R library. 


bo 


Specifying OBJ in the OPTIONS statement to 
place the object program directly into the R 
library. The retain entry can be either temporary 
or permanent. 


For more information on the OCL and utility control state- 
ments needed to use MAINT, see /BM System/3 Model 10 
Disk System Control Programming Reference Manual, 
GC21-7512, IBM System/3 Model 12 System Control Pro- 
gramming Reference Manual, GC21-5130, or LBM System/3 
Modei 15 System Controi Programming Reference Manual, 
GC21-5077. 


Placing a Punched Object Program in the R Library 


In the sample procedure shown below, the subroutine 
SUBRA is being placed in the R library from a punched 
object deck. 


// LOAD Statement: In this sample procedure, S$MAINT 
is the routine which interrogates the // COPY statement 
and calls the proper routine to accomplish the desired 
results. 


Fl is the disk pack upon which the utility program resides. 


// COPY Statement. The FROM parameter names the 
device holding the subroutine to be entered. The 
READER option must be used to copy the assembler 
punched object program. 


The LIBRARY parameter, R, specifies a relocatable library. 
The NAME parameter gives the name of the subroutine to 
be entered. This name must be the same as the program 
name (that is the name on the START instruction). The 
following names are restricted and cannot be used in this 
parameter: 


e ALL 
e DIR 


e@ SYSTEM 


The TO parameter specifies the physical destination of 
the object program (in this case, R1). 


The RETAIN parameter specifies the ultimate disposition 
of the object program. 


// CEND (Copy End) Statement: The // CEND 
Statement must follow the object deck. 


// END: The // END statement must be the end of all 
library maintenance decks. 


Placing an Object Program Directly in the R Library 


When the object program is placed directly inthe R 
library, it has the following characteristics in the library. 


e Name of the object program is the module name 
specified in the START instruction or the default 
module name. See the MODULE NAME MISSING 
diagnostic in Appendix C. System/3 Assembler — 
Source Language Error Codes and Diagnostics. 


e Aetain entry in the library is temporary if OBJ or OBJ(T) 
is specified and permanent if OBJ(P) is specified. 


(BM Systern/3 Gas Assembler Coding Form 


= 

ELT co TTT 
/| [GOA Si AUNTIE Fi Bate 
Z| RUN! | | | 
CEL COP ERE FROM RE 
Litt is) 

HS HoH 












@ Library to receive the object program is the disk speci- 
fied in the OBJECT operand of the // COMPILE state- 
ment. The default disk is the program disk. 


Using Assembler Object Program with the Program Loader 


The user may have the need to load a user-written assemb- 
ler object program as a stand-alone program. To use 

an assembler object program in this manner it is necessary 
to have the program punched into an object deck on the 
system punch device. The assembler language user ob- 
tains an absolute loader by specifying DECK and NOREL 
on the OPTIONS card (see NOREL option under OPTIONS 
Statement). The 96-column loader contains six cards and 
the 80-column loader contains one card. 


It is the user’s responsibility to ensure: 


1. That he has not referenced any address greater than 
the storage capacity of the System/3 on which the 
program is to be executed. 


2. That the address specified on the START instruction 
Statement is greater than X‘FF’. (The START 
assembler statement must specify the address at 
which the program Is to be loaded.) 


3, That the END statement indicates the start-of-control 
address. 


Note: If absolute object decks for more than one assembly 
are to be loaded together, then the loader must be re- 
moved from the front of the second and all subsequent 
decks, and the END card must be removed from the 

back of all decks except the last. 


IBM 5424 MFCU 


The procedure for loading and executing an assembler 
object program on the IBM 5424 MFCU is as follows: 


1. Clear MFCU. 


2 Place assembler object deck, including the loader, 
in primary hopper. 


3. Press MFCU START. 


4. Ready the printer. 


5, Set IPL SELECTOR to MFCU for Model 10 Disk 
System or ALT for Models 12 and 15. 


6. Press console PROGRAM LOAD to load and execute 
the assembler object program. (L1 or L2 halt is 
issued for error or not ready conditions on the 
MFCU.) 


{BM 2560 MFCM {Model 15 only) 


The procedure for loading and executing an assembler 
object program on the IBM 2560 MFCM is as follows: 


1. Clear MFCM. 


2 Place assembler object deck, including the loader, 
in primary hopper. 


3. Press MFCM START. 
4. Ready the printer. 


5. Set IPL SELECTOR to ALT. 


6. Press console PROGRAM LOAD to load and execute 
the assembler object program. (L1 hait is issued for 
error or not ready conditions on the MPCM.) 

IBM 1442 Card Read Punch (Models 12 and 15} 


The procedure for loading and executing an assembler 
object program on the IBM 1442 Card Read Punch is as 
follows: 

1. Clear 1442. 


2. Place assembler object deck, including the loader, 
in hopper. 


3. Press 1442 START. 

4. Ready the printer. 

5. Set IPLSELECTOR to ALT. 

6. Press console PROGRAM LOAD to load and execute 


the assembler object program. (L1 halt is issued for 
error or not ready conditions on the 1442.) 
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ASSEMBLER LISTING 


An important part of the assembler’s output is the assem- 
bler listing. The assembler’s printed output is on the system 
printer (under control of the // PRINTER OCL statement 
for Models 12 and 15). 


The listing is a printed reproduction of the source program 
and the corresponding object code generated for it to 
gether with other important information. Figure 26 at 

the back of this section is a sample listing. Specifically, 
the listing consists of the following: 


Control Statements 


Any OPTIONS or HEADERS statements specified by 

the user are printed and specification errors are noted. 

A list of OPTIONS in effect during the assembly is then 
printed. The page is ejected before the control statement 
information is listed. 
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External Symbol} List (ESL) 


The object program name, EXTRNs, and ENTRYs will 
appear in the following format: 


Symbol Type 
Program name MODULE 
ENTRY symbol ENTRY 
EXTRN symbol EXTRN 


Source and Object Listing 
The source and object listing consists of the following: 


@ Error code for improperly coded statements (see 
Diagnostics in this section). 


@ Location counter value, in hexadecimal, of the high 
order address of the object code generated by the 
corresponding source statement. 


e The object code, in hexadecimal, generated by the 
corresponding statement. 


@ The value, in hexadecimal, of the expression in the 
operand field of the EQU, USING, DROP, and END 
statements, the storage address, in hexadecimal, of the 
low order address of the DC constants, and DS storage 
areas. 


@ Statenient number, in decimal, for each statement, 
including comment statements. These numbers are 
assigned by the assembler. The statement number is a 
four-digit field which limits the assembly to 9,999 
Statements. 


@ The source image, which is forinatted according to the 
size of the printer used: 
column printer 


| Source Record 
‘ oe a 
| Source Statement (Columns 1-88) j1o/seq| 


1 52 53 76 77 88 89 3896 













Fold point for 96- Fold point for 120- 
or 126-column printer 












The following examples assume the 1D/SEQ field is in 
columns 89-96 of the source record: 


Note: The 1D/SEQ field may be from one to eight adja- 
cent characters jong and may reside anywhere between col- 
umns 73-96, 











— 
. 


On a 96-column printer, the [D/SEQ field is left- 
justified in columns 89-96 of the print line. If 
columns 53-88 of the source statement are blank, 
line 2 will not be printed. 


Object code Columns 1-52 of the 


field % |source statement 


ID/SEQ field 


39:36:37 88 89 96 


Columns 53-88 of 
source statement 


53 88 


2.  Ona120column or 126-column printer, the 
ID/SEQ field is left-justified in columns 113-120 
of the print line. 1f columns 77-88 of the source 
statement are blank, or if the start of the 1D/SEQ 
field on the source record is less than column 77, 
line 2 will not be printed. 


Object code Volta 1-76 of the 


field KH |source statement 1D/SEQ field 


35 36 37 112 113 


Columns 77-88 of 
source statement 


101 112 


3. With the 132-column printer, the complete source 
image is printed on one line. 


Object code Columns 1-88 of the 
field source statement 


|D/SEQ field 


35 36 37 124 125 


Note: Statements generated by the macro processor 
contain a plus symbol (+) in column 36. 
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Diagnostics 


The source and object program listing includes error codes 
for improperly coded statements. These errors are listed 
again, with a message, at the end of the source and object 
program listing under the heading DIAGNOSTICS. This 
list provides the following information: 


e Statement—The statement number, in decimal, (assigned 
by the assembler) of the statement which is in error. 


e Error code~a 3-digit alphameric code. See 


Appendix C: System/3 Assembler—Source Language 


Error Codes and Diagnostics for a list of error codes and 
translations. 


e Message--A translation of the error code indicating the 
type of error made. 


Also included under DIAGNOSTICS are the following 
error summary statements: 


e Acount of the total statements in error in the assembly. 


e Acount of total sequence errors in the assembly if 
sequence check is requested. 
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Cross-Reference List 


If XREF is specified on the OPTIONS statement this list 
includes all symbol names referred to in the source program. 
The following columns are included: 


e Symbol—The symbol name. 


e@ Length—The decimal length attribute of the symbol in 
bytes. 


e Values—Value, in hexadecimal, of the symbol. 


e Defined—Statement number, in decimal, where the 
symbol is defined. 


e References—Statement numbers, in decimal, where the 
symbol is referenced. Symbolic references to data areas 
and machine registers whose contents may be altered by 
execution of a machine instruction are flagged with an 
asterisk. 


At the end of the cross-reference list, the error summary 
statements are printed again. 





SUBRC 





FXFERNAL SYMBOL LIST 


i 


SYMBOL TYPE VER 00, MOD 00 01/36/76 PAGE 1 


| SUBRC MODULE 
TS a a a 








SUBRC SAMPLE EX!) SUuRAULTINZ--F FELD AND ENDICATOR 
ERR LOC OBJECT CCE APDR SIMT SOURCE STATEMENT VER 00, MOD 00 01/30/76 PAGE 2 
P CMR H ETE CER EETERER EER EKER ETHER REREAD ERTS REESE ERE OH 
4 x # 
G * NAME wcasecees'scsae SUGRE. & 
5 - 
5 = FINCTION weocwceee EXIT SUGROUTENE wIlTt FICLO ANDO iNOFCATOR * 
7 * PAKAMETERS. * 
ax x 
q * THE CODE GENERATEC BY THE COMPILER IS AS FOLLOWS: * 
ic = x 
Ll # b SUERC x 
Le * DC TLI®FLELS LENGTH-1L'! * 
13 @ OC SL2Z°S0CRESS GF RIGHT GF FIELD" * 
14 # be XLLI'ouo! x 
lo # oC ALL'INC{(CATOK MASK? m 
16 * re MLL'RE GIS TER 1 OLSPLACEMENT? 
Lv * & 
Lf} SERRA SEERA SEER ERE EERE OEHHA HR AKER ERK aes e 
cooad 19 suSRC START O 
0000 34 O08 OCT4 PO ST GET+3.ARK SAVE PAKM AUDLUR 
0004 36 CH GC2} 71 A CONS, AKR INCREMENT TO RETURN 
0008 34 ¢& OC2F 22 ST RET+3,ARR SAVE RETURN 
OO0C 34 Ce act2 24 ST SAVE+3,2 SAVE XR2 
OOLlO C2 O07 GCCC 24 GET LA a-%,2 GET PARMETER ADDRESS 
0014 2C Ol UCTP OS 25 AYC TEST#2¢2) ¢5¢927) MCVE IN MASK AND CISPLADEMENT 
0019 78 00 OC 26 (ES THN e-8{, 1), %-% TEST ITNDICATCR 
OOLC F2 90 OS 27 JF SAVE ENDICATUR OFF 
OOLF 85 O02 O02 2° L 2lg2)e2 GET CONTROL FIELD ADDRESS 
0022 BS O02 OF ?> L 50,2)92 GET .COkK UP ACORESS 
0025 BC C3 OCG 30 MV I Ote2),c'Ct MOVE IN CFC! 
0028 C2 O02 OCCG YL SAVE LA *-%,2 RESTORE 
ooec CO 8F accc 3P AEl 4 xe KETURN 
0030 0006 QOSL 33 CONG OC IL2*6* 
OGOR 44 ARR EQu 8 
FFF ie) END 
TOTAL STATEMENTS —FN -FRRUR TN TH)ls ASSEYBLY = ul 





IN a A 


GRUSS “RerereeENCL 












SUBKC 


SYMBOL LEN VSLUE CEFN REF CRENCES VER 00,MOD 00 01/30/76 PAGE 3 


ARR GOl O00# CC44 ONO20 Ge2l* 9022 

CONG CC2. COsL Cez4 C21 

GET OC4 COLC €G24 Co2Z0* 

RET ces C02C Ct32 ac22% 

SAVE GO4 QC2& CO3l CO23s* COLT 

SUBRC GCL O0CC COOLS 

TEST OCF COLTS. CO26 CO2o* 

TOTAL STATFMENTS TAS ERRUK IN THIS ASSEMBLY = 0 








Figure 26. Sampie Assembler Listing 


Programmer's Guide 41 


External Symbol List (ESL) Table Size 


The ESL table is an execution time main storage table 
containing the module name (START statement name or 
ASMOB3J) and each EXTRN and ENTRY symbol defined 
in an assembly. The total of EXTRNs and ENTRYs 
allowed in a single assembly is limited by the ESL table 
size. 


Using the Model 10 disk system assembler, the Limit is 74 
EXTRNs and ENTRYs. 


Using the Model 12 and Model 15 assembler, the limit varies 


with the amount of storage available in the execution partition. 


The limiting sizes and associated storage ranges are: 


Storage Available Limit of EXTRNs and ENTRYs 


10K R84 
12K 124 
14K 169 
16K 209 
18K - 48K 254 
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Appendix A. Machine Instructions 


MACHINE LANGUAGE INSTRUCTION FORMATS Register address 


Opetsuen sous e Data selection 
The first byte of cach instruction, the operation code, 
specifies the addressing modes to be employed by the 
instruction in bits 0 through 3, and the operation to be 
performed in bits 4 through 7. 


e Branch or skip condition 


e Device address and functional specifications 


O Code Control Code 

The third byte of an instruction in the Command Format 
contains additional data pertaining to the command to be 
executed. 


The second byte of each instruction is the Q code. In 2- 
address formats, the Q code is always a length count. In 
other formats, depending upon the operation specified, the 
Q code can be: 

Storage Addresses 
e Length count of 
For instructions in the 1-operand and 2-operand formats, 
the third byte of the instruction and all bytes following 
are storage address information. 


e {[mmediate data 


e Bit mask 


3 Bytes 


4 Bytes ae Address 
Displacement 

















































Length | Destination Source 
Count Address Address 
0 7 I ] 
Dispiacement |Displacement 8 15 - ot 
0 78 15 16 _ 23-94. 31 Be os 
~~ 
“ < | ™~ 
~, 
__ Immediate Data | Destination Address 7 
Direct Source | Bit Mask | Source Address | 
Destination Address | Register Address | Branch Address ! 
Address Dispfacement | Branch or Skip Condition | : 
0 7g 4516 31 32 39 ee Selection ! | 
“ | | 
an 
“~~. x { | 
5 Bytes 4 Bytes \ | 
Destination Direct 
Address Source Direct 
Displacement Address Address 
0 78 15 16 23 24 39 0 78 15 16 31 
One-Address Farmats 
6 Bytes ie 
ms ytes 
Op | Length i Direct Direct 
Code Count Destination Source Control 
| Address Address Code 
0 78 15 16 31 32 47 
0 7'8 15/16 23 
J MK 


Device Address 
and functional 
specifications 
Skip Conditon 
Halt Identifier 


(C) Command Farmat 
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(A) Two-Address Formats 


7 
| 
! 
{ 
I 
i 





lop Mnemonic Type 
ZAZ 
AZ Les ADDRESS 
SZ 


MV xX Direct 


ED !Op | a] Operand One Operand Two 
ITC 
— 6 bytes + 


~ 2 ADDRESS>} 









MV X Direct Indexed 
ED [Op | @ [operandi One 
MVC oe 5 bytes ———>| 
CLC 






R1 


2 ADDRESS> 


MV X Direct Indexed 


ED [Op | Q]Operand One | D2 | 


hie 
MVC -__—_ 5 bytes > 


R2 







1 ADDRESS 











Direct 
Operand One 


-¢—__— 4 bytes 


> 







I Z ADDRESS —>| 





MVX 
0 [Op] O[Oi] Operand Two. 
ITC 
MVC ——e bytes ——e | 
CLC 





R1 






2 ADDRESS 











MV X Indexed 
eo [Op] a] D1] 02 
ee 

MVC [peta bytes—> 
GEC 







Rt R1 
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NMinemonic Type 


ZAZ 


64 









66 AZ p+ 2 ADDRESSH 
SZ 
MVX 
co [oo] a] 01 Joe 
ITC 
MVC +4 bytes __»| 
CLC 
Ale R1 R2 






SLC 







LIO 1 ADDRESS 
ST | ‘ > | 

L 

A 

TBN 

TBF b~—3 bytes ——e 






R1 


Lee ADDR ESS——>] 


MV X Indexed Direct 


[eT OT 01 | Operend Two 










[ae 2 ADDRESS>] 









MV X Indexed 


co [SPOT or] oe, 
Ibe 
|~——— 4 bytes» 


R2 R2 








* Model 15 only. 


Legend: 
Di — Displacement, operand 1 
D2 — Displacement, operand 2 


Rl — Register | 
R2 Register 2 


| 


| op | Mnemonic Type 


1 ADDRESS 








Si [}~<—-—>—| 
lt Indexed 
A } Opt O | D1 


¢—— 3 bytes—pe| 


Dire 
| Op | 0 Address 


LA jee 4 bytes —— P| 












fOp]| QO] 02 | 
jap—= SB bytes ——} 


Op| a | v2 | 


LA jt 3 bytes — 





*Mode! 15 only. 
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oF 








Op Code Q ‘ —_———. Operands —————__+| Total |Type 
{one byte) Code Instr 

Bits | ; Length 

0-3 Bits 4-7 

















Summacy ———+} 
Op | Q |-—— operand —+| 


By te 


Ine |— Ferst ~\ Second 






















g |g 
; ep | Ire salted zenm || 28rerore 
— Direct TEED 
| Is 
Mvx ep | itc | mvc] cic] acc ste] geen 






Index-By A1 





: | | 

NIV X ie | ITC | MYVCI CLC] ALC ee 
_ ais — | 

IBN] TBF! SBN] SBF] Mvil CLI [SCP*}LCP* 














1 Byte Disp 
Index-By R2 








| ep | Tc | mvc 


Eo | irc | uve 














1 Byte Disp 
Index-By R1 
1 Byte Disp 

Index-By Fi2 


Indexed 
By Ail 







1 Byte 
Displacement 











re 
| 





| js 1 Byte Disp 4 
- | a bl owed index-By Fy 
Sie | y = a Soe 2 Tews + 
| BB Si Ss Lit tt 51 | 
f= — + arial — —— aa 
[ C i & I | mf 
Une cs i an 
| > 1 Byte Disp 
| : 2 index-By Rt 
‘ Se 1 1 Byte Disp 
Ak : 


























+ Baie é ytes L ct | 
| Byte Deena cs a 

i = 1 ~ F 

i : ' 

4 


Displacement | | 7 Byte Disp 





londexed index-By Rl 


we pate of et e [| 8yR2 


















Index-By AY 





“Model 15 only. 


MNEMONIC OPERATION CODES (MACHINE) 


Instruction*™ Mnemonic Operation Code 


Zero and Add Zoned Decimal 


Add Zoned Decimal 
Subtract Zoned Decimal 


Move Hex Character 

Move Characters 

Compare Logical Characters 
Add Logical Characters 
Subtract Logical Characters 
Insert and Test Characters 
Edit 


Move Logical Immediate 
Compare Logical Immediate 
Set Bits On Masked 

Set Bits Off Masked 
Test Bits On Masked 
Test Bits Off Masked 
Store Register 

Load Register 

Add to Register 

Branch On Condition 
Test 1/O and Branch 
Sense I/O 

Load I/O 

Load Address 

Load CPU*** 

Store GPU*** 


Advance Program Level 
Halt Program Level 
Start I/O 

Command CPU*** 


Jump On Condition 


ZAZ 
AZ 
SZ 


MVX 
MVC 
CLC 
ALC 
SLC 
ITC 
ED 


MVI 
CLI 
SBN 
SBF 
TBN 
TBF 
ST 


BC 

TIO 
SNS 
LIO 


LCP 
SCP 


HPL 
SIO 
CCP 


JC 


Two-address 
Format** 


One-address 
Format** 


Command 
Format** 


* For information concerning specifications for the use of 
these instructions with the Model 10, see the /BM System/3 
Model 10 Components Reference Manual, GA21-9103, 
or with the Model 15, see the JBM System/3 Model 15 
Components Reference Manual, GA21]-9193. 


** See Machine Language Instruction Formats in this 


appendix. 


*** These instructions are for the Model 15 
but they can also be generated on the 
Model 12 through the macros $LCP, $SCP, 
and $CCP. For more information concerning 
the use of the Model 12 macros, see 
IBM System /3 Models 10 and 12 System 
Control Programming Macros Reference 
Manual, GC21-7562. 
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EXTENDED MNEMONIC CODES 
Instruction 
Move Hex Character (MVX) 


Move to Zone from Zone 

Move to Numeric from Zone 
Move to Zone from Numeric 
Move to Numeric from Numeric 


Branch On Condition (BC) 


Branch 

Branch High 

Branch Low 

Branch Equal 

Branch Not High 

Branch Not Low 

Branch Not Equal 

Branch Overflow Zoned 
Branch Overflow Logical 
Branch No Overflow Zoned 
Branch No Overflow Logical 
Branch True 

Branch False 

Branch Plus 

Branch Minus 

Branch Zero 

Branch Not Plus 

Branch Not Minus 

Branch Not Zero 


Jump On Condition (JC) 


Jump 

Jump High 

Jump Low 

Jump Equal 

Jump Not High 

Jump Not Low 

Jump Not Equal 

Jump Overflow Zoned 

Jump Overflow Logical 

Jump No Overflow Zoned 

Jump No Overflow Logical 

Jump True 

Jump False 

Jump Plus 

Jump Minus 

Jump Zero 

Jump Not Plus 

Jump Not Minus 

Jump Not Zero 
Command CPU (CCP—Model 15 only) 

Supervisor Call 
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Mnemonic Operation Code 


MZZ 
MNZ 
MZN 
MNN 


BH 
BL 

BE 
BNH 
BNL 
BNE 
BOZ 
BOL 
BNOZ 
BNOL 
BT 

BF 

BP 
BM 
BZ 
BNP 
BNM 
BNZ 


JH 
JL 
JE 
JNH 
JNL 
JNE 
JOZ 
JOL 
JNOZ 
JNOL 
JT 

JF 
JP 
JM 
JZ 
JNP 
JNM 
JINZ 


SVC 


iia 
J a 
j 


OQ Code 


X00’ 
X02’ 
X01’ 
X03’ 


X‘87’ 
X‘84’ 
X‘82’ 
X‘81° 
X‘04’ 
X‘02’ 
X01? 
X‘88? 
X‘A0’ 
X08’ 
X‘20” 
X‘10° 
X‘90’ 
X‘84’ 
X82? & : 
X81" \ 

X04’ 
X02’ 
X‘0Or’ 


X87" 
X‘84’ 
OZ: 
X‘81’ 
X04’ 
X02’ 
X01’ 
X‘88’ 
X*AO’ 
X08’ 
X*20’ 
X*‘10’ 
X90’ 
X‘84’ 
X82’ 
X81? 
X04’ 
X02’ 
X01’ 


X‘10’ 


Assembler Language te Machine Language Relationships 


The following charts show the relationship between a 
machine instruction statement as coded by the System/3 
Basic Assembler Language programmer and the machine 
language as generated by the assembler. 


For exainple, the instruction coded by the programmer ts 
ZAZ FINAL{S),DONE(1,1). From the second line of the 
first of the charts we can develop the relationship between 
the instruction and the machine code as follows (assume 
FINAL is a relocatable symbol with value X*°131B’ and 
DONE is an absolute symbol with value X‘BA’): 


Machine instruction statement 
as Input to assembler 





ZA “N : | 
ZAZ Al 


Z (5), DONE (1, 1) 
(L1),02(L2,R1) 


Used in this manner, the following charts show what 
machine code results from a particular assembler language 
statement, and vice versa, what assembler language format 
obtains a particular machine code format. 


The abbreviations used on the following pages mean: 


Al Direct address, operand 1 
A2 Direct address, operand 2 
Dit Displacement, operand | 
D2 ‘Displacement, operand 2 
Ll Length of operand | 
12 Length of operand 2 


Kl Register } 
R2 Register ? 


RX Local storage register 


I Immediate data 


L2-1 Address Al 





Five-byte machine instruction generated by assembler 


Disp D2 
from R1 | 


Appendix A. Machine Instructions 
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Assembler Instruction Format 















Operands 





Operation 









A1(L1},A2(L2) 






A1(L1},B2({L2,R1) 







A1(L1),D2(L2,R2} 






D1(L1,R1},A2{L2) 







D1{L1,R1)},D2(L2,R1) 







D1(L1,R1),D2(L2,R2) 






D1(L1,R2),A2(L2) 







DI(LISR2),D2(E2,R1) 







D1(L1,R2),D2{L2,R2) 







NOTES: 
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Op-Code 


94 


If L1 or L2 is not specified, the implied length is used. 


Machine Instruction Format 


[om | owe | ows | oma [ome | ome 















Operands 


L1-L2,L2-1 Address Al 


L1-L24 L2-1 | Address an 
t 


L1-L2}L2-1 1 Address ai 
\ 


Eta L2-1 Disp D1 
from R1 


| 






Disp D1 


L1-L24 L2-1 
| from R1 








L1-L21L2-1 
| 


Disp D1 
from R1 








L1-L2 L2-1 Disp D1 
from R2 
L1-L24 2-1 Disp D1 

| | from R2 | 


644 | Disp D1 | 
i from R2 
| ee eee 


lf D1 or D2 is relocatable, the assembler computes the displacement based on the USING instruction. 


Address A2 







Disp D2 
from R1 





Disp D2 
from R1 


Disp D2 
from R2 









Address A2 
i 












Address A2 


Disp D2 | 
from R1\| 


Disp D2 | 
from R2 [ 








ANLHAzL2) [oe tiaztiai! Addresat | _Addesa2 


L1-L2 L2-1] Address A1 Disp D2 
| from R1 

















A1(L1}),D2(L2,R1) 











A1t(L1),D2(L2,R2) 





ee, 2-1] Address Al Disp D2 
| | from R2 













D1({L1,R1),A2(L2) Disp D1 Address A2 


from R1 | | 





AD 19-4 

















D1(L1,R1),0D2(L2,R1) Disp D1 | 


| from R1 


Disp D2 
from R1 








L1-L2 ; L2-1 













Disp D1 
from R1 | 


Disp D2 


D1{L1,R1},02(L2,R2) 
from R2 | 






66 | Ete? L2-1 | 













L1-L2 L2-1 





D1(L1,R2),A2(L2) Disp D1 | 





Address A2 
I 

















i from R2 
D1(L1, R2), D2(L2, R1) 36 L1-L2) 12-1 | Disp D1 Disp D2} | 
from R2 | from Rt | 
| 
D1{L1,R2),D2(L2,R2) A6 11.2 , L2-1' Disp D1 Disp D2 | 





| from R2!~ from R2 
Pe ee eee ed 







NOTES: 






lf L1 or L2 is not specified, the implied length is used. 





1f D1 or D? is relocatable, the assembler computes the displacement based on the USING instruction. 
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Assembler Instruction Format Machine Instruction Format 


Operation Operands Op-Code Operands 











SZ Arti) AQ 2) Q7 L1-L2'L2-1 ' Address A1 Address A2 
oe ee 
SZ A1{tL1),D2(L2,R1) 17 j 1-L2 . L2-1 | Address A1 | Disp D2| | 
from R1 

SZ A1(L1), D2(L2,R2} 27 | t1-L21L2-1 | Address At Disp D2] | 

| | from R2 | 
SZ D1(L1,R1},A2(L2) 47 ET-t2 ' L2-1 | Disp D1 Address A2 

from RI 














































SZ D1(L1,R1),D2(L2,R1) L1-L2,L2-1 | Disp D1 Disp D2 
from R11 f 
SZ D1(L1,R1),D2(L2,R2) 422 02 Disp D1 Disp D2 | 
from R1 from R2| | 
| 
SZ D1(L1,R2),A2(L2) LE1-L2 | L2-1 Disp D1 Address A2 | 
from R2 | | 
SZ D1(L1,R2),02(L2,R1) LAR, 21 Disp D1 Disp D2] | 
: from R2 from R1 | | 
| 
SZ D1({L1,R2),D2(L2,R2) AT bik? 7 L241 Disp D1 Disp D2 | 
| t from R2 | from R2i/ | 
= | 








NOTES: 







lf L1 or L2 is not specified, the implied length is used. 





if 01 or D2 is relocatable, the assembler computes the displacement based on the USING instruction. 
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Machine Instruction Format 


08 I 


| ) | Address Al : Address A2 | 


[ 
18 i , Address Al | 
t 


Assembler Instruction Format 








Operation Operands 





















Ai(l),A2 





A1{l},D2(,R1) 






A1(t),D2(,R2) 








D1(1,R1),A2 Disp D1 


from R1 


Address A2 
| 



















Di(1,R1),D2(,R1) l Disp D1 


| Disp D2] | 
from R1 






D1{1,R1),D2(,R2} 










Disp D1 Address A2 
from R2 





D1(I,R2),A2 










Di(),R2),D2(,R1) 98 I { Disp D1 Disp D2 


| from R2 . fromRt 






















D1(1,R2),D2(,R2) I Disp D1 Disp D2 
| | from R2 from R2 
ee eta aa elle ee 


NOTES: 


I may be specified on either operand, and must have the value X’00’,X’01’,X’02’, or X’03’. 







{if D1 or D2 is relocatable, the assembler computes the displacement based on the USING instruction, 






For the extended mnemonics of the MVX instruction, t-field information is inherent in the mnemonic and the t-field 
ts omitted from the operand field. See Extended Mnemonic Codes for the extended MV X and the associated Q-codes., 
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Assembler Instruction Format Machine Instruction Format 


oc j. ~ ea Address A1 | Address A2 
1C j Lt 


Address At Disp D2 










Al(L1),A2 










A1(L1),D2(,R1) 
from R1 







Address A1 






A1(L1),D2(,R2) 








D1(L1,R1),A2 





L1-1 Disp D1 Address A2 
| | from R1 
















D1(L1,R1),BD2(,R1) Disp D1 


from R1 


Disp D2 
from R1 














D1(L1,R1),D2(,R2) 6C Disp D1 Disp D2 


from R1 from R2 
















D1(L1,R2},A2 Disp D1 


| | from R2 





Address A2 















D1(L1,R2),02(,R1) Disp D1 Disp D2 


from R?2 | from R1 
AC L171 DispD1 {| Disp D2 |! 
| | from R2 | from R2|! 


Li may be specified on either operand; if L1 is not specified, the implied tength of operand one is used. 








D1({L1,R2),D2(,R2) 












NOTES: 






If D1 or D2 is relocatable, the assembler computes the displacement based on the USING instruction. 
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Assembler Instruction Format 


CLG 


Cle 














A1(L1),A2 


A1{L1),D2(,R1) 







A1(L1),D2(,R2) 


D1{L1,R1),A2 









D1(L1,R1),D2(,R1) 





D1{L1,R1),D2(,R2) 









D1(L1,R2),A2 







D1{L1,R2},02(,R1) 







D1(L1,R2),02(,R2) 


NOTES: 








L1 may be specified on either operand; if L1 is not specified, the implied length of operand one is used. 


If 01 or D2 is relocatable, the assembler computes the displacement based on the USING instruction. 


Machine Instruction Format 


1 * i 
OD L1-1 | Address Al Address A2 
| 


1D L1-1 Address Al Diso D2 
| from R1 





Disp D1 
from R1 


Address A2 


5D L1-1 Disp D1 Disp D2 
from R1 | from Rt 


Disp D1 | Disp D2 
from R1 from R2 | 


6D L1-1 
| 
8D | L1-1 Disp 01 | Address A2 









from R2 | 
| 
9D L1-1 Disp D1 Disp D2 | 
| from R2 | from Ril! 
| | 
AD L1-1 Disp D1 Disp D2 
| from R2 from R2 








Appendix A. Machine Instructions 

























oD 


Assembler tnstruction Format Machine Instruction Format 


Operation Operands | Op-Code | code | Operands 


A1(L1),A2 


A1{L1),02(,R1) Address Al Disp D2 
{ 


from R41 


Address ae 


A1{L1),D2(,R2) 


D1(L1,R1),A2 Disp D1 Address A 


from R1 ) 


Disp D1 Disp D2] 
from RW from R1 | 


D1(L1,R1),D2(,R1) 





D1(L1,R1),D2(,R2) 











D1(L1,R2},A2 Disp D1 Address A2 
I 
from R2 | 
D1(L1,R2),D2(,R1) SE | L1-1 | Disp D1 Disp D2 | 


from R1\ | 

_ | 
D1(L1,R2),D2(,R2) AE L1-1 Disp D1 Disp D2] 

| from R21! from R2 
eS ee Re ele asl 


from R2 





NOTES: 
L1 may be specified on either operand; if L1 is not specified, the implied length of operand one is used. 


if D1 or D2 is relocatable, the assembler computes the displacement based on the USING instruction. 
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Assembler Instruction Format 


~ 


SLC 


SLC 


SLC 


SLC 


SLC 


SLC 


NOTES: 


A1(L1},A2 














A1(L1),D2(,R1) 


A1(L1),D2{,R2)} 


D1(L1,R1),A2 


D1(L1,R1),D2(,R1) 


D1(L1,R1),D2(,R2) 


D1(L1,R2),A2 


D1(L1,R2),D2(,R1) 


D1({L1,R2),D02(,R2) 


Machine Instruction Format 




















Disp D1 Address A2 


from R1 | 














Disp D1 
from R1 


Disp D2 
from R1 














| 
| 
| | 
| 
Disp D1 | Disp D2] | 
| from R1 from R2| | 






Address A2 


Disp D1 
from R2 | 










| 
OF L1-1 Disp D1 | Disp D2} | 
| from R2 from RI | 
I 
AF L1-1 { Disp D1 Disp D2 | | 
I | from R2!~ from RQ | | 
Le ees ae 


L1 may be specified on either operand; if L1 is not specified, the implied length of operand one is used. 


If D1 or D2 is relocatable, the assembler computes the displacement based on the USING instruction. 


Appendix A. Machine Instructions 


OF } 1-1 


Address A1 | Address A2 | 
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Assembler Instruction Format Machine Instruction Format 
Operation Operands Op-Code Q-Code Operands 


A1(L1),A2 


A1(L1},D2(,R1) 


A1(L1),D2(,R2) 2B L1-1 Address Al | Disp D2 
| from R2| § 
| 
D1(L1,R1},A2 - Disp D1 Address A2 
from R1 


isp D2 | 
from R1 | 
D1(L1,R1),D2(,R2) 6B el Disp D1 {| Disp D2]! 
| from R1 from R2 


D1(L1,R1),D2(,R1) 5B L1-1 Disp D1 
| 


from R1 | 


D1({L1,R2),A2 Disp D1 Address A2 
from R2 


| 
D1{L1,R2),D2(,R1) Disp D1 Disp D2 | 
from R2 from Rt 


D1(L1,R2),D2(,R2) AB , ou Disp D1 , Disp D2 | 
| from R2 from R2 | 
pee ee _ ee F] 
NOTES: 
Operand one must address the data field at the leftmost byte. 


L1 may be specified on either operand; if L1 is not specified, the implied Jength of operand one is used. 


lf D1 or D2? is relocatable, the assembler computes the displacement based on the USING instruction. 
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Assembler Instruction Farmat | Machine Instruction Format 










































Operation Operands Op-Code Q-Code | Operands 
} 
PO ——— ——|— “ er er ies i 
| Byte 17 | Byte 2 a 3 = Sia 4 Byte 5 Byte 6 
erin rp = er - > ie — 7 + Fes = = — | 
ED | AI(L1),A2 
| —— fl 
ED ) A1(L1),D24R1) 7 
| | | 
ED | A1(L1),.D20R2} i ' ; | 
ED | D1IM{Li,R1),A2 1 4A a Disp Dt | = Address A2 | 
| PL from rt | | 
| i tee teen | 
ED |} D(L1,R1),02(R1) | 5A , ut Disp D1 
, 
Feecbeininzenns => “ OM RI from RI | | 
ED D1(L.1,R1),D2.,R2} GA [Ls Disp Di | Disp D2]! 
| i serine a ees OM I from R2} | | 
1 é [ ; 
ED | Diti1,R2),A2 | 8A Lat | Disp D1 | Address A2 | 
| | ~ from R2 | | 
ED D1(iL1,R2),D2(R1} oA f L1-1 | Disp D1 | Disp D2 3 
yp sy from R2 | from R1 | | 
- noe 
el I pe eae a eae 
ED D1(t1,R2},02(.A2) | AA ss fet Disp D1 | Disp D2} 1 | 
| ; from R2 | from R2| | 
7 a 4 ee Oe ae ee, Dk ge eee ee 


NOTES: 
L.1 may be specified on either operand; ij L171 is not specified, the implied jength of operand one is used. 


\f D1 or D2 is relocatable, the assembler computes the displacement based on the USING instruction. 


fp em ne a ee eee RR i er ee 
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Machine Instruction Format 


Assembler Instruction Format 


MV] AI 
MV I Di(,R1},! 
Mvt D1{,R2),) 


NOTE: 











Operands 

















Disp D1 
from R1 








If D1 is relocatable, the assembler computes the displacement based on the USING instruction. 








Assembler Instruction Format Machine Instruction Format 


3D | | Address Al | 
| 
7D i Disp D1 
from R14 
| 
BD I | Disp D1 
| from R2 


lf D1 is relocatable, the assembler computes the displacement based on the USING instruction. 


Operation Operands 















All 







D1(,R1),1 







| 
| 
D1(,R2),! | 










NOTE: 





Assembler Instruction Format Machine Instruction Format 
Operation Operands Op-Code Operands 


Al,| [ 34 | 1 Address A1 | | 


D1(,R1),I , Disp D1 
from R1 


D1(,R2),| Disp D1 
| from R2 
fe a me eel 


| 
| 
| 
| 
| 


NOTE: 


If Di is relocatable, the assembler computes the displacement based on the USING instruction. 
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aw 


Assembler Instruction Format Machine Instruction Format 


Operands 


Byte 3 javte 4 | Byte 5 
SBF Al [38 | | Se peageees Aa ; ) 


| | 

SBF D1(,R1},1 78 | ! | Disp D1 | 
[ from R1 | 

| 

| 









Operation Operands 











Byte 6 


| 
| 
| 
| 
| 





SBF D1{,R2},! BB | Disp D1 
from R2 
baited fe ee A Sel i 
NOTE: 


If 07 is relocatable, the assembler computes the displacement based on the USING instruction. 


Assembler Instruction Format Machine Instruction Format 


Operation Operands Op-Code Operands 
TBN Al] 7 ie | Address A1 : — 





i 
| | 
TBN D1(.R1),1 : Disp D1 3 
from R1 | 
| | 
TBN D1(,R2).1 B8 | Disp D1 | | | 
| fromR2|_ | 
= septa eee a Poe et 
NOTE: 


{f 01 is relocatable, the assembler computes the displacement based on the USING instruction. 


Assembler Instruction Format Machine Instruction Format 


Al,| [ 39 7 | Address Al : | 





| 
t | | | 
TBF D1(,R1),f 79 [Disp DT] + | 
| 1 from R1 ' 
| 
TBF D1(,R2),! BY i Disp D1 | | 
| om R2 i | | 
oe eS en ! frees oe 


NOTE: 


If 1 is relocatable, the assembler computes the displacement based on the USING instruction. | 
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Assembler Instruction Format Machine Instruction Format 


(ek 


A1,RX RX, Address A1 | | 







‘Operands 


Byte 5 Byte 6 





D1(,R1),RX 









D1(,R2),RX | Disp D1 


| from R2 


| 
| 
| 
| 
{ 










NOTE: 


if D1 is relocatable, the assembler computes the displacement based on the USING instruction. 





Assembler Instruction Format Machine Instruction Format 


Operation Operands Op-Code Q-Code Operands 
Byte 1 Byte 2 Byte 3 3 Byte 4 Byte 6 


A1,RX 35 RX | Address A1_ |, 
| ee ee | 
D1(,R1),RX 75 RX , Disp Or] | ) 
| from RI i | 

ae Fe inti paeieies | 
D1(,R2),RX BS “TDispBT] | 
| from R2} | 


NOTE: 





If D1 is relocatable, the assembler computes the displacement based on the USING instruction, 





es 


Assembler Instruction Format Machine ineeWenGn Format 


Operation Operands Op-Code Q-Code 


fa eee | 
A A1,RX Address A | 
eC OO ae a 
—— seth on Se | | 
A D1(,R1),RX RD | Disp ot | ! | 
te = , from RI J | | 
A D1(.R2),RX nl Base ep 81 | | , | 
{ fr rom R? =| | 


NOTE: 










Operands 








If D1 is relocatable, the assembler computes the displacement based on the USING instruction, 
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Assembler Instruction Format Machine Instruction Format 
BC Al] Co I j Address Aj 
BC 
BC 
NOTES: 













01(,R1),I 












| 
from R1 


EO | Disp D1 
from R2 





D1{(,R2),1 





—— ee 






If D1 is relocatable, the assembler computes the displacement based on the USING instruction, 






For the extended mnemonics of the BC, the second operand (j-fie!d) is not used since the information is inherent in the mnemonic. 
See Extended Mnemonic Codes for the extended branches and their associated Q-codes. 









Assembler Instruction Format Machine Instruction Format 


TIO Ail C1 1 Address Al 
TIO 
TIO D1(,R2),) E1 | | 










| 
D1(,R1),I 





Disp D1 
from R2 


NOTE: 


lf D1 is relocatable, the assembler computes the displacement based on the USING instruction. 










Assembler Instruction Format Machine [Instruction Format 

SNS Al,| 30 | | Address Al 

SNS D1{,R1),| 

SNS D1(,R2),1 

NOTE: 













70 | Disp D1 
from R1 










tf D1 is relocatable, the assembler computes the displacement based on the USING instruction. 
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Page of SC21-7509-6 
issued 24 June 1977 
By TNL: SN21-5536 










Assembler Instruction Format 


1 I 










Operation Operands 










LIO Al,| 3 Address A1 
j 
LiO D1(,R1),I 71 ! | Disp D1]! 
from R1 { 
| | 
LIO D1(,R2),1 B1 | | | Disp D1 
from R2 
NOTE: 


If D1 is relocatable, the assembler computes the displacement based on the USING instruction. 


Assembler Instruction Format Machine Instruction Format 
Operation Operands Op-Code Operands 
a ’ 
A1,RX C2 RX Address Al 
j 


D1(,R1),RX D2 RX | Disp D1 
| from R1 


Disp D1 | 
from R2 


DIRQ) Rx 


| 

| 

| 

| 
| | 
| 


NOTE: 





If D1 is relocatable, the assembler computes the displacement based on the USING instruction, 





Assembler Instruction Format Machine Instruction Format 

Operation Operands Op-Code Q-Code Operands 
A1,RX 3F RX Address Al. 
D01(,R1),RX 7F RX Disp 01] ‘| 


D1(,R2),RX 


Disp D1 
from R2 


— er — —_ a 


t 
| 
| 
| | from Rif | 
| 





NOTES: 

The Model 15 LCP instruction can also be generated on the Mode! 12 through the 

$LCP macro instruction; see /8M Syste /3? Madels 10 and 12 System Control 

Programming Macros Reference Manual, GC21-7562. 

If D1 is relocatable, the assembler computes the displacement based on the USING instruction. 


—————— 
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Assembler instruction Format Machine Instruction Format 
SCP A1,RX 3E RX | Address Al 
SCP DiC R1I,RX 
SCP D1{,R2),RX 
NOTES: 
























7E RX | Disp D1 
from R1 
| Disp D1 
from R2 








BE , RX 


The Model 15 SCP instruction can also be generated on the Model 12 through the $SCP 
macro instruction; see /8M System/3 Models 10 and 12 System Control Programming 
Macros Reference Manual, GC21-7562. 






if D1 is relocatable, the assembler computes the displacement based on the USING instruction. 


Assembler Instruction Format Machine Instruction Format 


The APL is a NO-OP instruction on the Model 15. 












































Operation Operands 





Operands 








11,42 
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Assembler Instruction Format Machine Instruction Format 


F4 RX 11 


The Model 15 CCP instruction can also be generated on the Model 12 through the $CCP 
macro instruction; see /BM System/3 Models 10 and 12 System Control Programming 
Macros Reference Manual, GC21-7562. 


‘a 


NOTES: 


For the SVC form of the CCP instruction, the Q-code is inherent in the mnemonic and the RX field is omitted 
from the operand field. See Extended Mnemonic Codes for the associated Q-code. 


Assembler Instruction Format Machine instruction Format | 


*If the first operand is absolute, this value is placed in byte 3. 
If the first operand is relocatable, the displacement from the next sequential instruction to address A1 is placed in byte 3. 






it 








NOTE: 








For the extended mnemonics of the JC, the second operand {f-field) is not used since the information is inherent in the mnemonic, 
See Extended Mnemonic Codes for the extended jumps and their assomated O-coces. 
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Appendix B: Assembler Instruction Reference Table 






ee ee ee 
DC 
DS 


Operand Entry 
ge eS a a I NS ae ae ee ee 


One operand entry containing: Duplication Factor, Type, Length, Constant. 











DROP 
Any Symbo!] or Blank 


ENTRY Blank Any relocatable name entry found in the current program, 
One relocatable symbol not found in the current program which ma 
EXTRN Blank 2 eo uy 
be followed by an absolute expression enclosed in parentheses. 
ICTL Two decimals in the form of B,E. 


PRINT Biank Model 10 Disk System: One or two entries from DATA, NODATA, ON, 
OFF. 
Model 12 and Model 15: One to three entries from DATA, NODATA, 
| GEN, NOGEN, ON, OFF. 
SPACE Blank or a decimal value. 

START A self-defining value or blank. 

TITLE Name or Blank A sequence of characters enclosed In apostrophes. 


USING A relocatable éxpression (V) and an index register (R} in the form V,R. 


Specified register (1 or 2). 





One operand entry containing: Duplication Factor, Type, Length. 











Blank operand or an expression (A) optionally followed by two absolute 
expressions in the form A,B,C. 
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NO1 
NOQ2 
NO3 


N04 


Appendix C: System/3 Assembler — Source Language Error Codes and Diagnostics 


[coe [ temeneSC~™~idi een CSCSCSC~‘“*SCS*S 





INVALID NAME LENGTH 
INVALID CHARACTER IN NAME 


NAME NOT ALLOWED ON THIS 
INSTRUCTION 


REFERENCE TO UNDEFINED SYMBOL 


NAME MISSING FROM 
INSTRUCTION REQUIRING ONE 


PREVIOUSLY DEFINED SYMBGL 
MODULE NAME MISSING 


INVALID OPERATION CODE 
INVALID GRIGIN 
INVALID OR ILLEGAL ICTL 


INVALID START INSTRUCTION 
LOCATION COUNTER ERROR 


MISSING END STATEMENT 
INVALID OPERAND DELIMITER 
INVALID OPERAND FORMAT 
MISSING OPERAND 

INVALID SYNTAX IN EXPRESSION 
EXPRESSION VALUE TOO LARGE 
INVALID OPERAND 

ARITHMETIC OVERFLOW 
ADDRESSABILITY ERROR 
REGISTER SPECIFICATION ERROR 
INVALID CONSTANT 

INVALID CONSTANT TYPE 
INVALID DUPLICATION FACTOR 
INVALID LENGTH SPECIFICATION 
INVALID STATEMENT DELIMITER 
RELOCATABLE MULTIPLICATION 
RELOCATABILITY ERROR 


INVALID SYMBOL 
INVALID SELF-DEFINING TERM 


SELF-DEFINING VALUE TOO LARGE 


INVALID IMMEDIATE FIELD 
INVALID DISPLACEMENT 








Name field entry greater than six characters 
Name starts with non-alphabetic or contains an invalid character 


Name field entry not allowed on this instruction 


The referenced symbol is not defined in this program 


Name field entry missing from EQU instruction 


Symbo! has been previously defined in this program 


START instruction missing, or START instruction present but name field 
entry (module name) missing. Assembler assigns the default module 
name ASMOBJ. 


Undefined operation field entry 
Attempt to ORG to a vatue less than the initial value of the location counter 


Operand error on ICTL, or ICTL not the first statement in the program. 
(ICTL treated as last source statement in program) 


START instruction encountered after location counter is initialized 


Location counter overflow (greater than 65536) or attempt to reference 
the location counter at 65536 


END statement missing from the program 

An operand field syntactical delimiter is either misplaced or missing 
The operand field is not of the proper format for this instruction 
Operand field entry missing from instruction requiring one 


Violation of one or more expression syntax rules 


Final expression value not in range -216 to 216.4 


One or more operand entries do not meet specifications for this instruction 
Intermediate expression value not in the range -224 19 224-1 

Relocatable displacement outside the range of USING instruction 

Index register specification not 1 or 2 

Error in constant specification on DC instruction 

Data type specified on DC/DS is not valid 

Error in duplication factor specification on DC/DS 

Error in length specification 

The column following the statement field is not blank 

A relocatable term used in multiply operation 


A relocatable expression ts used where an absolute expression is required, 
or an absolute expression is used where a relocatable expression is required 


Invalid character in or invalid length of a symbol in the operand fieid 
Error in the format of a self-defining term 
Value of self-defining term ts outside of range -216 tg 216-1 


Immediate field not in range X’00’ to X’FF’ 


Absoiute displacement not in range 0 to 255 
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P22 


70 


Diagnostic 


INVALID EXTRN 


TOO MANY ESL RECORDS 


Explanation 

Ca nn a a ee ee 
Symbol is invalid or already defined in the program or subfield 
is invalid. 


More than allowed number of EXTRN and ENTRY statements 
were found in the program. This count includes multiple 
EXTRNs and ENTRYs, ENTRY5 with valid symbols which are 
not defined, and EXTRNs with valid symbols which are defined 
in the program. See ESL Table Size in Part 1. Programmer's 
Guide. 





Appendix D: 


Assembler subroutines can be linked to an RPG II program. 


The RPG Ii program passes parameters as it branches to 
the assembler subroutine. To write a subroutine that will 
be linked to an RPG II program the following rules must 
be used: 


Li: The name of the assembler subroutine must be 
SUBRxx. xx can be any valid alphabetic characters 
for user-written subroutines. (Numeric characters 
are reserved for IBM-supplied subroutines.) The 
name used must be the same as the name used in 
the RPG II program. 


2. Upon entry to the assembler language subroutine, 
the address recall register (ARR) contains a pointer 
to the parameters which represent the fields to be 
referenced by the assembler subroutine. The return 
point to the RPG II program is the first byte after 
the parameters. 


3. Ifthe subroutine makes use of registers | and 2, the 
contents of these registers must be stored upon 
entry to, and restored before exit from, the 
subroutine. 


USING FIELDS IN THE RPG I! PROGRAM 
When linkage is effected from RPG I] to an assembler 
subroutine, three possible areas in the RPG II program can 
be referenced by the subroutine. They are: field, table 
or array, and indicator. 
Referencing a Field in an RPG I} Program 
The following parameters (symbolic form of code 
generated by the compiler) are passed by RPG II when a 
field is to be referenced: 

B SUBRxx 


DC IL1*Field length -1° 


DC AL2(rghtmost address of field) 


Assembler Language Subroutine To RPG II Linkage 


Referencing a Table or Array in an RPG 1 Program 


The following parameters (symbolic form of code 
generated by the compiler) are passed by RPG II when a 
table or array is to be referenced: 


B SUBRxx 

DC ILI‘Entry Jength-1’ 

DC AL2(leftmost address of table control field) 
The subroutine can refer to the table or array defined in 
the RPG IJ program by utilizing the control field created 
for that table or array. This control field, one of which 


is created for each table or array built by the RPG Ii 
program, is in the following format: 


Bytes Meaning 

1-2 Rightmost address of the first entry. 

3-4 Rightmost address of the last entry. 

5-6 Initialized to rightmost address of first entry; 


used at object time for rightmost address of 
the Jast looked-up entry of a table. 


7-8 Length of an entry. 


The subroutine can obtain the data retrieved from the last 
RPG {I table LOKUP by using the address in bytes 5-6. 
To access the table or array itself, the address in bytes 1-2 
must be used, 


Data used by the subroutine must be left unpacked for the 
RPG II program. 
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Referencing an Indicator in an RPG II Program Linkage for i/O Subroutines 


The following parameters (symbolic form of code generated The following linkage is generated by RPG II to communi- 
by the compiler) are passed by RPG II when an indicator cate with the user-supplied I/O subroutine. 
is to be referenced: 

i. DTF (define-the-file) format: 


B SUBRxx 
By tes Descrip tion 
DC XLI‘00 
0 Device code (X‘00’) 
DC XLI‘Mask for the indicator’ 
l UPSI mask 
DC XLi ‘Displacement to the indicator from XR1’ 
2-3 Attributes 

Note. The parameters passed to the assembler subroutine 

are determined by the coding done in the RPG II program. 45 Reserved for data management 

For a description of this coding, see the JBM System /3 

RPG II Reference Manual, SC21-7504, IBM System /3 6-7 Address of next DTF 

Model 6 RPG Il Reference Manual, SC21-7517, or IBM 

System/3 Card System RPG II Reference Manual, 8-B Reserved for data management 

SC21-7500. 

C-D Logical record address 

RPG Il LINKAGE SAMPLE PROGRAM 1 FE Completion code 

In this sample program, the RPG II program links to the X‘42’ = End-of-file 

assembler language subroutine SUBRA (Figure 27). X‘41’ = Controlled cancel (not 

When control is returned to the RPG IT program, the recognized by Model 10 

character ‘A’ will have been moved into the field in the card system) 

RPG II program. X‘40’ = Normal completion (not 
recognized by Model 10 
card system) 

RPG I! LINKAGE SAMPLE PROGRAM 2 F Operation 

X‘CO’ = Get and put (model 10 

In this sample program, the RPG II program links to the card system only) 

assembler subroutine SUBRB (Figure 28). The first X‘80’ = Get 

parameters passed reference a table. The second param- X‘40’ = Put 

eters reference an indicator. The subroutine refers to X‘20’ = Update 

both sets of parameters. The subroutine first tests the X‘10’ = Close 

indicator in the RPG II program. If the indicator is off, 

control is returned to the RPG II program. If the indicator 10-1] Input I/O address 

is on, a character °C’ is moved into the last looked up 

entry in the table. When control is retumed to the RPG II 12-13 Output I/O address 


program, it checks for a ‘C’ in the table. 
14-15 Block length 


1/0 SUBROUTINES 16-17 Record length 
Subroutines that support input or output devices can also 1819 Address of array DTT if array linkage 
be linked to an RPG Ii program. These subroutines are is used 


commonly referred to as RPG IJ SPECIAL subroutines. 
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The address of byte 0 of the DTF will be passed to 
the I/O subroutine in index register 2. Bytes 0-3, 6-7, 


C-D, and 10-17 are filled in by RPG II at compile time. 


Byte E, completion code, is inserted by the I/O sub- 
routine when contro} is returned to RPG HI. Byte F, 
the operation byte, is inserted at object time. The 
information in bytes 0 and +B must be available, 
unchanged at close time, for data management. 


The DTT (define-the-table) is used for array linkage. 


DTT format: 
Bytes Description 
0- | Address of rightmost byte of the first 


element of the array. 


2-3 Address of rightmost byte of the last 
element of the array. 


4-5 RPG fast LOK UP element. 


6-7 Length of array element. 


2. The 1/O subroutine must save and restore the registers 
altered in the routine. Contro! should be returned to 
the address in the address recall register (ARR). 


Note: The combined get and put operation code, X°CO’, is 
utilized by the System/3 Model 10 Card System only. The 
System/3 Model 10 Disk System, System/3 Model 12, and 
System/3 Model 15 use alternate get and put operations to 


accommodate combined files. When coding an I/O subroutine 
to be used on either system, be certain to consider this fact. 


When an input operation is done, the I/O subroutine must 
move the address of the physical buffer currently being 


used to the logical buffer address location in the DTF (bytes 


C-D). In the Model 10 Card System, address bytes 10-11 
will be the same as bytes C-D (one physical buffer). 


When an output operation is requested, the I/O subroutine 
must move the data from the logical buffer (address in 
bytes C-D of the DTF) to the physical buffer (address 

in bytes 12-13 of the DTF). The two addresses are the 
same in the Model 10 Card System. Bytes 0-B are unused 
in the Model 10 Card System. 


The 1/O subroutine must do its own open when the first 
call to it is issued. It must also do its own close to the 
file on a close call. 


If a dual I/O is requested, the second area will be immediately 
behind the first (Model 10 Disk System, Model 12, and Model 
15 only). 


The I/O subroutine cannot be overlaid in the Model 10 Disk 
System, Model 12, and Model 15. 


Sequential processing only is supported. 


When an 1/O subroutine issues a halt, three halts should be 
displayed as follows: 


I The first halt issued should be the FF halt reserved 
by RPG Il for SPECIAL I/O subroutine usage. 


2. The second halt should be the last two digits of the 
subroutine name. 


3. The third halt may be any valid halt that can be 
displayed. 
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Figure 27. Assembler Language Subroutine (SUBRA) for Sample Program | 
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Control! passed to SUBRB 
by RPG 1! program 


(Bl Syitens] Assembler Coding Farm 






4 pont MB we i wm a re a7 4h ay be sd os SM ca we a mt TTT A) peo at & 
as | SUBRI : | ot tTit 
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generated by the RPG I] compiler: 


lo yo0 













ACA ET 
4 
wel 


SUBRB =~ (3) 
i1L1‘O’ 


AL? (leftmost address of table control field) 










DC  XL1°00" =H a , 2 
| DG Ker CT 00 
iets H i VW 
oy fd thd oe . 
save Hua Te He 
Re eT wen 
ere DC 
(1) Parameters passed for a table ARR | TL e@u UT | 
HEMET 
(2) Parameters passed for an indicator HT as 
HHH | rth HH 
(3) Control field for table Eee ees 48 ier ie oR ees EE 47 4) 04 Moe 0) ak On 50 51 S750 ee 55 94 87 3K 50 GOES 67 89 04 BS oy OF On 6D PDT 12 7] Mt PRG 7 BON AF Ol ol eo 
DC AL2 {address of first entry} 
DC AL2 (address of last entry) 
DC AL2 (address of tast !ooked-up entry [TABB] ) 
DC =-IL2‘1’ (length of entry} 


Control returned to 
first byte after 
parameters 


LIBRARY DECK GENERATOR PROGRAM (MODEL 10 
ONLY) 


The System/3 Model 10 Card System user can write assem- 
bler language subroutines to be used as SPECIAL or EXIT 
routines in an RPG JI program. These assembler routines, 
however, cannot be inserted directly into the RPG I] 
compiler. The assembler language subroutine must 

first be assembled by the System/3 Model 10 Disk System 
Basic Assembler and then translated by the Library Deck 
Generator (LDG) program before it can be placed in the 
RPG Il compiler. 


The entire operation, from writing an assembler subroutine 
to selection of that subroutine by the 1BM System/3 Model 
10 Card System RPG [| compiler is outlined as follows: 


1. The assembler subroutine is written by the programmer. 


If standard control cards supplied by the LDG program 
are not being used, the programmer must also code 
control cards for the subroutine. 


2: The assembler subroutine is assembled on the 
System/3 Model 10 Disk System by the Basic 
Assembler. 


3. The LDG program is read into System/3 Model 10 
Disk System storage. The *** parameter card, 
assembler subroutine object deck, and blank cards 
are placed in the MFCU. 


4, The LDG program produces a deck of cards, con- 
taining the subroutine, which can be placed in the 
RPG II compiler. The deck produced by the LDG 
program contains the following: 


Header card 
Control cards 
Text 

Q-card 

End card 


5S. The deck produced by the LDG program may now 
be placed in the RPG II compiler deck. When an 
RPG II program is compiled, this subroutine will be 
selected, when required, just as any other compiler 
subroutine. 


The following material describes the information 

needed to use an assembler language subroutine in an 
RPG JI program. This material is divided into four major 
sections: 


Writing the assembler language program 
Running the LDG program 

Output of the LDG program 

Example of a SPECIAL subroutine 
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Writing the Assembler Language Program 


The following information must be considered when the 
assembler language program is written. ( 


Title Instruction 


The name field of the TITLE instruction must contain 
OOGEB in columns 1-5. 


Contro! Cards 


Control cards are needed for every assembler language sub- 
routine. Control cards contain code, executed during 
compile time, which determines whether the subroutine 
should be included as part of the program being compiled. 
Library routines are selected only when the execution of a 
control card determines they are needed. Jn addition, 
control cards are needed to ensure that the entry point for 
the subroutine is placed in the proper location in core for 
the RPG II compiler to find and use it. 


There are two ways to get the control cards you need. In 
some cases, you will need to code them yourself; in others 
standard control cards are supplied by the LDG program. 
If your subroutine is to be used as a normal SPECIAL or 
EXIT routine, the LDG program wili supply three control 
cards. See Figure 29 for samples of these. When these 
control cards are provided, a SPECIAL routine is selected 
if bytes 12-13 of the file description compression matches 
the identification characters of the routine, and if the 
SPECIAL device code B‘Oxxx1010’ is present in byte 16 
of the same file description compression. EXIT routines 
are selected if the identifier in the library routine is the 
Same as an entry in the symbol table (bytes 3-4) and if 
byte 2 of the same entry contains bit configuration 
11100000. When these decks are selected, the address of 
the entry point of associated object code is placed in the 
symbol table entry, bytes 3-4 for an EXIT reference and/or 
bytes 8-9 of the file description compression for a SPECIAL 
reference. 


You must code control cards for your subroutine when: 
e@ The subroutine is not a SPECIAL or EXIT routine. 


@ The subroutine needs a function not provided by the 
standard control cards. 


The following paragraphs describe several compiler resident 
routines which can be used by programmer coded control 
cards. 


Coding Control Cards 


There are three types of control cards each identified by 
a special character in column |. Each type performs a 
different function: 


® Cards with a J in column | (J-cards) are usually used to 
control the selection of a routine for an object program. 
They also place the routine entry address in compile 
time storage for use by the RPG [J compiler. 


® Cards with a K in column | (K-cards) are used only 
when one routine from a set of related routines is to be 
used in any job. A J card will determine if any of these 
routines are needed and if so will start the scan for K 
cards which in turn control selection of the proper 
routine. 


@ Cards with an L in column 1 (L-cards) are used to pass 
information from RPG I! compile time core to a sub- 
routine or vice versa. They are executed only if the 
deck in which they appear has been selected for use with 
the current program. 


Control card identification characters must be defined for 
assembly at X*OQQQ0’ and are placed in column 1 of control 
cards. The only allowable characters are J, K, L, and blank. 
There should be one non-blank control card identifier 
character for each block of code for a control card. The 
blank is used as a delimiter between control card strings. 


For example, DC BER) CLIO‘JIKLLBLBLYL’ shows identi- 
fiers for seven control cards and four control card strings. 
The first is a 4-card string with identifiers ‘JKLL’ used. 
The others are single card strings, each of which has an 
‘L’ identification. 


LDG identifies the control cards and assigns one control 
card identification character to each one. The control 

card Strings are merged with the text cards for the routine 
functional code in the following manner. The first control 
card string is merged in front of the text, and one addition- 
al control card string is merged into the text cards where 
there is a break in the text caused by a DS or an ORG which 
changes the location counter. 


Each control card must contain executable code. Control 
cards are coded in the order needed for the purposes de- 
scribed above. Each must begin at X°0017’; therefore, an 
ORG to 23 or X‘0017° must precede the code for each card. 


Your control cards must contain instructions for calculating 
the address at which your subroutine will be loaded. To 
calculate the true entry address, use the current relocation 
factor described here. 
Label Address Function 
RELOCF X‘030C’ to 
X*030D’ 


Contains the current 
relocation factor. Is 
modified when the end 
card of the selected deck 
is encountered or JIEAAI 
is entered. 


See Figure 29, Part 1, found at the end of this section, for 
an example of the use of the current relocation factor. 


The following paragraphs describe several compiler resident 
routines which can be used by programmer coded control 
cards. 


J-Card Scan Routine reads the library deck until a J-card is 
encountered. The routine has three entry points. 
Label 


Address Function 


J3EAAI X‘O31A’ Scans for J-card. When 
one is found, control is 
passed to that card. All 
other cards are ignored. 
J2EAA] X‘3014’ Clears X‘OOEO’ to X‘OOFF’ 
and X*007C’ to X‘007F’ 
to hex zeroes then scans 
for J-card as JBEAAI. 
JIEAA] X‘Q30E’ Resets the relocation 
factor to the next object 
address and performs as 


J2EAA]. 


K-Card Scan Routine has one entry point. 


Label Entry Point Function 


KIEABI X‘0320’ Scans for K-card. When 
one is found, control is 
passed to that card. All 
other cards except J- 
cards are ignored. Ifa 
J-card is found, a halt 


‘40’ is executed. 
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Relocate Deck Routine has one entry point. 


Label Entry Point Function 

Initiates or continues 
relocation of the current 
deck. Will recognize and 
execute L-cards and re- 
organize and print Q-cards. 
Exits to JIEAA] when 
end card is encountered. 


RIEACI X‘032C 


Sean File Description Compressions Routine has two entry 
points. This routine steps through the file description com- 
pressions. It returns a pointer to the next compression in 
register 2. If the condition code is high, the pointer is 
valid. Any other condition indicates the pointer is invalid. 


Label Entry Point Function 


FI EAE] X°0338’ Initializes pointer to first 
file description compres- 
sion and sets condition 
code: 

F2EAEI1 X‘033E° Points register 2 to the 
next compression and 
sets the condition code. 
(Register 2 need not be 
pointing to the last 
compression.) 


Sean Extension Compressions Routine has two entry 
points and steps through the extension compressions and 
returns a pointer to the next compression in register 2. A 
high condition code indicates a valid pointer. Any other 
condition code indicates an invalid (undefined) pointer. 


Function 


Label Entry Point 
EIEAFI X'0344' Initializes pointer to first 
extension compression 
anid sets condition code. 
E2EAF] X‘034A’ Points register 2 to the 
next compression and 

sets condition code. 
(Register 2 need not 

point to last compression.) 
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Text Handling Routine builds up full text card in storage 
and, when a card is full, punches that card. The area from 
X‘0080’ to K‘OODF’ is the location of the punch buffer 
and this must be considered when using this area of core. 


function 


Label Entry Point 
BKEAH] 0350’ Forces any partial text 
card to be punched. 
STXLA]! X035C’ Accepts a string of text to 
be added to the current 
text immediately following 
the last text passed. Re- 
quires a l-byte parameter 
following the branch. 
Parameter contains a 
displacement relative to 
register | to the length 
byte of the text being 
passed. The text string 
should be preceded by 

this length byte which 
contains the length of 
text. 


Wait On Punch Busy Routine: 


Label Entry Point 


Punetion 
WTPUN] X'0362’ Returns when the previous 
punch operation has been 
successfully completed 

and the buffer is not busy. 


Title of Subroutine 


The title of the routine must be a defined constant to be 
loaded starting at X‘OO00’. it must be equal to or less 
than 80 characters in length. This title is printed on the 
RPG I] compiler listing with the address of the entry point 
of the routine if it is selected at compile lime. 


a 


Routine Functional Code 


This code must be assembled starting at X‘0000’. The 
code must contain a break in continuity (a DS or an 
ORG which changes the location counter value) where 
control cards are to be inserted. 


Assembling the Subroutine 


The assembler subroutine is assembled by the Model 10 
disk system basic assembler. The OCL considerations for 
assembly are discussed in Section IJ: Programmer’s 
Guide under the headings OPTIONS Statement and 

OCL Statements For Assembler. 


An OPTIONS card must be used to successfully assemble 


the subroutine. 


Running the LDG Program 


The following paragraphs describe a special parameter card 
that must be used with the assembler deck, the OCL required 
to load the LDG program, and error conditions that may re- 


sult. 
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Library Deck Generator Parameter Card { 


A parameter card must precede the assembler generated 7 - 


saa 


object deck to provide the LDG program with information 
regarding output. Entries for the parameter card are as 


follows: 


Columns 


1-3 


4-9 


10 


11 


12 


13 


14 


15-16 


17-18 


19 


20 


21-96 
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Entry 


HEE 


SUBRxx 


, (comma) 


S 


, (comma) 


D 


G 

, (comma) 
VV 

MM 


O (zero) 


, (comma) 


Subroutine 
title 


Explanation 

Three asterisks identify a parameter card. 

These characters identify the subroutine. Substitute any two characters 

for xx — the second may be blank, but the first must not. Note that the 

LDG program will not diagnose an error in these columns. 

Required. 

Standard control cards will be provided by the LDG program for the subroutine 
identified by the characters found in columns 8-9 of this parameter card. The 
title, also extracted from this parameter card, will be assigned to the subroutine. 
The entry point of the routine must be the first byte of the routine. GEB will be 
forced as module identifier. 

Non-standard control cards will be supplied by. the user as will identification 
characters and title. (The format of this material may be found in Figure 29.) ( 
If N is specified, the title specified in this parameter card is ignored. Thus, if k | 
N is used, columns 21-96 may be left blank. | 
Required. 

Default values for component version, modification level, and indication of 
complete or partial deck replacement for header card are provided by the LDG 
program. | 
Default values are not assumed. The user must provide them in columns 15-19. 
Required if column 11 contains an S or column 13 a G. 

Two numbers indicating the component version. 

Two numbers indicating modification level. 

Partial deck replacement for header card. 

Compiete deck replacement for header card. 


Required only if column 13 contains a G and column 11 an S. 


If column 11 contains an N, the title is not required. !f column 13 contains 
a D, the title of the subroutine must begin in column 15. 


Examples: 


IBM 










STATEMENT 


7 ew 3M a ee mw 


User will supply all control cards, identifying characters, 
and title for subroutine ‘Ap’. 


STATEMENT 


fared 
7 0? we Ost 44 BM om 0 





Library Deck Generator will supply standard control cards 
which will be used for selection of subroutine BB. The title 
will be printed on the 4th tier of the cards and on the com- 
piler listing. The values given in columns 15-19 will be used 
on the header card. The component version (02) will go in 
columns 59-60 of the header card, the modification level 
(00) will go in colurnns 31-32, and deck replacement indi- 
cator (1) will be placed in column 85. 


Loading the LDG Program 





eae eee ee | 





STATEMENT 










PRINTER, | TTT] 
SIS. NG, RIL i | |b 


AA ped EY 
| (PARAMETER! 
WT 


aco 
a HH 


Error Conditions 

Several errors are considered to be terminal. If terminal 
errors occur, the card image is printed, the error message 
is printed, the deck is run through to the ‘/*’ card, and a 
C halt is displayed. When this halt is reset, processing is 
discontinued by the end-of-job routine. 

If the error is not terminal, the card image is printed, an 
error message is printed, and a C halt is displayed. The 
program is restartable, however, and processing will 
continue. 

Following is a list of error messages generated by this 


phase. An asterisk (*) preceding the number indicates 
which are warning errors. 


1. Number of control cards generated incorrect. 
2. Length of control card text, too great for one card. 
3. Card sequence incorrect. 
4. Title too long or the first text is contiguous. 
#5. First control card character may not be blank. 
6. Not enough breaks for control strings. 
*7, More breaks than control strings. 
*8. Last text not at highest address expected. 
9. Improper card in deck. 
10. End card out of sequence. 
11. Invalid control card identification. 
12. First object card must be an ESL card. 
13. Insufficient core for control card storage. 
14. Invalid entries on *** control card. 
*15. /* card or *** card out of sequence. 
*16,. GEB not used as module identifier. 
17. *** card required before object deck. 


18. Too many control card identifiers specified or 
invalid sequence. 
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Output of the LDG Program Example 


The header card in stacker 2 should be placed in front of Figure 29 is an example of a SPECIAL subroutine. This 

the remainder of the output deck in stacker 3. Insert the sample program can be used as a base for any SPECIAL or 
subroutine deck in the RPG IT Compiler deck using the EXIT subroutine. The only changes required are modifying 
Program Maintenance Program. The subroutine deck must the subroutine identification characters, entry point, label, 
have GEB in columns 91-93, and routine title. Areas of change are outlined in the sample 


listing. Control cards are created for you. 


OOGEB ANY TITLE DESIRED MAY BE USED 


ERR LOC QBJECT CQDE ADOR STMT SDURCE STATEMENT 
2 FC CEKERSEHE SEE SEEESE SESE SE CEESEE REESE EE EERSESEEE CREE EESERECESEEEEEEE © 00020000 
3. * * 00030000 
4 * THIS 1S A SAMPLE CQDING FOR THE CONTROL CARDS FOR A "SPECTAL* * 00040000 
5 * * 00050000 
6 * DEVICE REFERENCED IN AN RPG PROGRAM, ALL LABELS WHICH WILL * 00060000 
7 * * ccoo70000 
a ® NEED TO BE MOOIFIED FOR A PARTICULAR PROGRAM HAVE LABELS * 00080000 
9 © * 00090000 
10 * STARTING WITH THE CHARACTER *#*. THIS DECK [S IN THE FORMAT * 00100000 
ll * * 00110000 
12 * REQUIRED BY THE LIBRARY DECK GENERATOR. * 00120000 
13 * * 00130000 
14 * THESE CONTROL CARDS MAY BE USED FOR ANY SPECIAL OR EXIT * 00140000 
15 * * 00150000 
16 & SUBROUTINE. * 00160000 
i? «* * 00170000 
18 © CER SSS EEE EEE SEE ESE SEES ESSERE EEE SE REE EEE EE EEE ERR ESEC REECE E © 00180000 
20 © CORE SHE EERE EEE EEE CECE EERE STEERER EERE EERE ESE EE SEER CHER EER ES HE © 002700000 
Zl ¥ 00210000 
22 * STANDARD LABELS AND LABELS USED TO LINK TO THE LIBRARY * 00220000 
23% * 00230000 
24 * SELECT ROUTINE AND RPG COMPELER COMMUNICATIONS AREA * 00240000 
25 # * 00250000 
2h EF METH EE SESE EERE EESS ERE CEE ERE SEAS EEREES EEE EERE EE EEE ESSER ESR ESSE EEE & 00260000 
co00 28 START START O PROGRAM SHOULD BE STARTEO AT O 00280000 
Oook 29 XKRI EQU l STANDARD LABEL FOR INOEX REGISTER 1 00290000 
0002 30 XR2 EQu 2 STANDARD LABEL FOR INDEX REGISTER 2 00300000 
0008 31 ARR EQU § ADORESS RECALL REG 00310000 
0300 33 RELOCF EQU START#X*O30D! RELOCATTON FACTOR FOR CURRENT DECK 00330000 
O30E 34 JLEAAL EQu START*#K"*O30E! ENTRY POINT TO RESET RELOCATION 00340000 
35 * FACTOR AND SCAN TO NEXT ‘J* CARD 00350000 
O31LA 36 J3EAAL EQU START#xX "O31 A® ENTRY TO SCAN TO NEXT *"J* CARD WITH- 00360000 
37 * OUT RESETTING RELOCATION FACTOR 00370000 
O32C 38 RIEACL EQU START#K*032C? ENTRY POINT TO INETIATE OR CONTINUE 00380000 
39 «* RELOCATION OF THIS DECK 00390000 
0338 40 FLEAEL EQU START#X'0338? ENTRY POINT TO INITIATE THE SCAN OF 00400000 
4l * THE FILE DESCRIPTION COMPRESSTONS 00410000 
O33E 42 F2EAEL EQU START#X*033E?* ENTRY POINT TO CONTINUE FILE DISC. 00420000 
43 *% COMP. SCAN 00430000 
44 © BOTH OF THE PREVIOUS ENTRIES 00440000 
45 RETURN A POINTER IN XR2 AND A 00450000 
46 * CONDITION CODE *HIGH® TF THAT 00460000 
47 © POINTER [TS VALID 00470000 
O28C 49 COMMON EQU START#x*"O2aC* START OF THE RPG COMPILER 00490000 
50 * COMMUNICATIONS AREA 00500000 
O2E6 $1 ENDCOR EQU COMMON+90 HOLOS LAST ADORESS IN MEMORY -FIRST 00510000 
52 © BYTE USED FOR SYMBOL TABLE - 00520000 
O2EA 53 ENDST €£QU COMMON+ 94 HOLOS LAST ADORESS USED FOR SYMBOL 00530000 
54 © TABLE. 00840000 
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TZ 


ERR LOC 


0000 
ooo0l 
0003 
0005 
oooT 
0009 
OO0A 
0008 
ooop0 
OOOF 
0010 
0011 


0012 
ooLl3 
OOL4 


0Gc00 


0000 B1O101 


OOLT 


Col? 


COLA 
OO1F 


0023 
0027 
OO2A 
0020 


0030 
0033 
0037 


0038 
QO3E 


0042 
004% 


OBJECT CODE 


7C 


4E 
Co 


60 
Ba 
B9 
Fe 


7 
9C 
co 


DO 
co 


oO 


ol 
5? 


Ol 


85 
96 


FF 


ol 


gs? 


87 


0000 
7A7B 


76 


43 030D 
0338 


78 
08 43 
O33€E 


23 
O31A 


ADDR STMT 


SOURCE STATEMENT 


5H € COKHHAAHEAAREHHE SEEKS OEE ECE HEEEE EEO EERER EKER EERE AEH of 
57 ® * 
58 THE FOLLOWING I[S A SKELETON FOR A FILE DESCRIPTIGN * 
59 «© « 
60 € COMPRESSTON * 
61 © © 
62 © SHEKHAR REECE KER EHEC HEE EERE MER ECO! oF 

0000 64 FCFG DS CLi FLAG BYTE FOR COMP. ALWAYS X‘FF! 

0002 65 DS ClL2 OUTPUT BUFFER @ 

0004 6 OS Cle [NPUT BUFFER ADDRESS 

0006 éT OS CL2 PRINT BUFFER ADDRESS 

0008 68 FCENTa@ DS CL2 1OCS ENTRY POINT ADDRESS 

0009 69 oS Cuil FLAG BYTE 

OOOA TO Os CLl FLAG BYTE 

Oo0oCc 71 FCIONT OS CL2 HOLOS IDENT FOR SPECTAL ROUTINE 

OOOE T2 OS CL2 EXTERNAL ENDECATOR ASSIGNMENT 

OOOF 73 FCDVA ODS CL DEVICE CODE B'OXxXx1G10" FOR SPECIAL 

0010 T4 Os Cll BLOCKING FACTOR 

ooll 75 OS cul RECORD LENGTH 
FT EC SCHHHTHHSHSESSSHSHSS ESSE SHE HEESHSSHES SHS HEKHESEKECEKEEESEECKERECEREEEE £ 
TR ® ro 
T9 *& THE FOLLOWING IS A SKELETON FOR A SYMBOL TABLE ENTRY * 
80 © * 
SG] SF SHH SSH SHH STA HEHAH EK HKSHS SSH SESS SAH EHHKSHCHS ESHER RSESESHESE & 

ool? 83 STLEN OS Cll LENGTH FOR FIELD ENTRY 

0013 84 STFLAG DS CLl FLAG BYTE SPECIAL NEEDS B° ' 

001s BS STIDNT DS CL2 {DENT FOR SPECIAL C*'a@@" HGLOS ENTRY 
846 © POINT AFTER SELECTION 
BR © SHSSCHKSHHSSE SEES SHEE SEHET AK SESSEAESHEK HEE SEEK HESEHHESESERESAECE CERES & 
a9 «6 * 
90 * THE FOLLOWING DC CONTAINS THE [0°S FOR THE CONTROL CAROS * 
91 *# * 
J2 & CHEHSKEE ASSESS SESHEHESSHSSEHESSES ESS SSH SS SHRECSEESSEHSESEE THESES EESEEE & 
94 ORG 0 

0002 95 oc CL3a*JJu* THREE CONTROL CARDS ALL WITH [DENT 
96 6 *')" AND INSERTED IN FRONT OF THE 
97 6 DECK 
QD SF SHEESH SHES SESH E HESS SEES EHS SHEESH S STRESSES ASEESHETEEE REESE © 
100 * * 
Lol * THIS CONTROL CARD SCANS THE ‘F*® COMPRESSTONS FOR REFERENCE TO *# 
102 # e 
103 * tgp? IF FOUND IT SETS THE FLAG BYTE AT X*OOTB' TO X*FF', * 
104 * + 
105 * IF ELTHER FOUND OR NOT FOUND IT STARTS THE SCAN FOR THE NEXT &® 
106 * * 
ldg7 *# CONTROL CARD. * 
108 *# * 
LOD © SHSHHSSSSK AS HEHEHE SEES SESE HEKE SHH SEE ASHE SEHESEH SESH ESEEEREKEESEE £ 
thl ORG XtOolT?® REQUIRED FOR EACH CONTROL CARD 

OO78 1L12 FLG EGU START#+xX* 78° AREA FROM X*7B* TO X"FF* TS 
113 * USABLE FOR WORKING STORAGE 
Lll& «© THIS BYTE USED TO FLAG IF 
115 © ROUTINE FS REFERENCED ON *"F? 
116 © SPECIFICATIONS 

0000 6117 USING START,XR1 VALIO AT ENTRY TO ANY CTL. CARD 
118 aVI FLG(sXR1),X'OO* INLTIALLZE FLAG FOR NOT USED 
L1I9 © ON FILE DESCRIPTION SPECS. 
129 ALC fENTRY(2,XR1) ,RELOCF CALCULATE TRUE ENTRY ADDRESS 
L2l B FLEAEL ENITIATE SCAN OF °F COMPS. 

0000 1l22 USING FCFG,xXR2 VALID UPON RETURN FROM FILEAE1 
123 SPCAL CLC BIDENTi2,XR1},FCLIONT(.XR2} 18 THE TOENT THE RIGHT CHAR 
124 TBN FCDVA?,ZR2),8*'00001010' AND [SS OEVICE CQGOE THAT FOR 
125 T&F FCDVA(,XR2)-B*1LO000101" "SPECIAL! 
126 LC SPCA2,X"'96? IF THIS {5S NOT THE RIGHT COMP, 
126 4MV1 FLG(,XR1L)_X"FF* SET FLAG TO INDICATE USED ON 
129 * FILE DESCRIPTION SPECS. 
130 MVC FCENT@i2exXxR2)-8ENTRYOCZXR1L) MOVE ENTRY ADDRESS TO THE 
131i * FILE DESCRIPTION COMP. 
132 SPCA2 8B F2EAE] ELSE SCAN TO NEXT COMP 
133 BH SPCAL(C,XR1} [F POINTER STILL GK LOOP 
134 B JZEAAL GET NEXT ‘'J* CARD 
135 *# THES ENTRY WELL NOT CLEAR THE 
136 * BYTE AT FLG. 

0043 138 SENTRY DC AL2(SUBRa@a} ENTRY PONT AOGGR. TO BE RELOCAT 

0045 139 #IDENT OC CL2toat TWO CHARACTER IDENT FOR ROUTINE 

0002 14] DROP xR? Identify your subroutines by 


replacing these # signs with 





identifying characters. 
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00560000 
00570000 
005580000 
00590000 
00600000 
00610000 
00620000 


00640000 
00650000 
00660000 
00670000 
00680000 
00690000 
00700000 
00710000 
00720000 
00730000 
00740000 
00750000 


00770000 
007380000 
00790000 
00800000 
00810000 


00830000 
00840000 
ooBSO000 
00860000 


00880000 
o0os900c0 
00900000 
00910000 
00920000 


00940000 
00950000 
00960000 
00970000 
00990000 
01000000 
01010000 
01020000 
01030000 
01040000 
01050000 
01060000 
01070000 
01080000 
01090000 


01110000 
01120000 
O1130000 
01140000 
01150000 
01160000 
01170000 
01180000 
01190000 
01200000 
01210000 
01220000 
01230000 
01240000 
01250000 
01260000 


01280000 
012990000 
01300000 
01310000 
01320000 
01330000 
01340000 
01350000 
01360000 


01380000 
01390000 


ate1ladgoda 
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ERR LOC 


oo17 
ool? 


oo1c 
0020 


0024 


0027 
OO2ZA 
OG2ZE 


ool? 
ool? 
OO1C 
0021 
0025 
002A 
0020 


0031 
0035 
0038 
0036 
OO3F 
0042 
G045 


0045 
o04c 


005D 
0052 


0054 


OBJECT CODE 


4c 
Ce 
36 
B9 
Fe 


6¢ 
co 


ol 
02 
02 
18 
10 


ol 
8? 


0000 
7878 


FFFC 


7D O2EA 


FFFC 
O2E6 


02 


04 
70 04 
O31A 


$1 030D 
30 O2E6 
30 55 
30 O2EA 
18 

9000 


ADDR STMT 


143 
144 
145 
146 
1467 
148 
149 
190 
is! 


0ooO7D 153 
154 
155 
156 
157 
158 
159 


16] 
162 
163 
164 
165 
1646 
OOll 167 
168 
169 
170 
171 
l?2 
0002 4173 


175 
176 
17? 
178 
179 
180 
181 
1652 


184 
185 
186 
187 
188 
189 
190 
ool1 191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 


9951 203 
0053 204 


0055 206 
20T 


SDURCTE STATEMENT 


S PRHRHHPHSHEHSKERERARKRSESKETKERESRSEESEKSESE RARE HE HEED OESEEREERERE SESE ¢ 
* * 
* THIS CONTROL CARO OETERMINES THE END ADDRESS TO BE USED ¥ 
* * 
* [N THE SEARCH OF THE SYMBOL TABLE DONE 8Y THE NEXT CONTROL * 
* * 
* CARD. * 
¢ * 
SK SEAKSRESSER ARATE ATER RERE TEES CER CERERRES PASE EREPKETERRERARRERERE ESD 6 
NOa FQuU START#xX' 70! THES TWO BYTE AREA WILL HOLD 


E 

* THE ADDRESS TO CONTROL THE 

* SYMBOL FABLE SCAN. IT WILL BE 
* THE ADDRESS OF THE END OF THE 
* SYMBOL TABLE OR THE FIRST 

* TABLE ADORESS TABLE POINTER 

2 WHICH EVER [IS HIGHEST 


ORG x*OO17' 






MVC END@t2,x*R1),ENDST INTTTALIZE ENO ADORESS TO END 
* OF SYMBOL TABLE 

LA M*FRFFC* »xXR2 INITIALIZE XR2 TO NEGATIVE 4 

A ENDCOR,XR2 POINT XR2 TO FIRST ENTRY IN 
* SYMBOL TABLE 

USING STLEN-1,XR2 

TBF STFLAG(,XR21,xX*18¢ TEST I[F ENTRY FOR TABLE OR 
* ARRAY 

JT SPC BO [F NELTHER ~-> JUMP 

MVC ENO@{(2,XR1),STLONTIXR2) ELSE RESET THE ENO ADDRESS 
SPCBO B J3EAA] GO GET NEXT CARD 

OROP xR? 
& SCHKPSH SH SHS SSH SESS SSPE HSSS SSE SHSHOSKSESESHSESSEHCAHCVASESEPSEEH SESH ERED 4 
* THIS CONTROL CARO CHECKS THE SYMBOL TABLE FOR REFERENCES FROM *® 
* * 
* CALCULATIONS. $F REFERENCED THERE OR ON fF* SPECS RELOCATION * 
* * 
* OF THE OECK IS INI TIATEO * 
* * 
KE CHKPKSHSSH SSK E PS CEPETESSESCSSE SESS SHSHECESEESH EH HR SES SEEERERESHCEEEKEREVEE & 

ORG XFOOLT® START OF CONTROL CARD TEXT 

ALC MENTE 2,XR1L),RELOCE CALCULATE ENTRY ADORESS 

MYC SPCB243{2—eXR1}_. ENDCOR INETIALZE LA BELOW 
SPCB1l ALC SPCB24302,KXR1LI,STSTEP{sXR1) STEP BACK TO NEXT ENTRY 

CLC SPC B2+312,XR1),ENDST CHECK FOR END OF SYMBOL TABLE 

JL SPCB3 IF BEYOND END --> JUMP 
SPCB2 LA e-#,XR2 POINT TO ENTRY 

USING STLEN-1,XR2 

CLC STIONT(2¢XR2),HTONI XR1) 1S THE IDENT CORRECT AND 

TBN STFLAG( ,XR2)eB'1Li 100000 THE ENTRY FOR AN EXIT LABEL 

BC SPCB1(sXR1L1eX*96" IF NOT CORRECT ENTRY ~--> LOOP 

MVC STIONT(2,XR2},WENTI RI) ELSE MOVE IN ENTRY POINT 

SBN STFLAG(,XR2),8"' 00000001" SET FLAG FOR ROUTINE FOUND 

J SPCB4S START RELOCATION OF ROUTINE 
SPCB3 CLI FLGUsXR1)gX"FF" WAS ROUTINE REFERENCED FROM 
* FILE DESCRIPTLON SPECS. 7 

BRE JIEAAL NO - UNUSED SCAN TO NEXT DECK 
SPCB4 8 RIEACL YES - USED AS SPECIAL RELOCATE 
@ENT DC ALZ(SUBRE#) ENTRY POINT FOR RELOCATING 
#10N o¢ Cl2'‘wa* IOENTIFICATLON 
STSTEP DC IL2*-4! NEGATIVE LENGTH OF SYMBOL 
* TABLE ENTRY 


Replace these # signs with 
the characters identifying 
your subroutine. 






Figure 29 (Part 3 of 4). Sample Coding for SPECIAL Device 
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01430000 
014460000 
01450000 
01460000 
01470000 
014890000 
01490000 
01500000 
01510000 


01530000 
01540000 
01550000 
01560000 
01570000 
015890000 
01590000 


01610000 
01620000 
01630000 
01640000 
01650000 
01660000 
01670000 
01680000 
016990000 
01700000 
01710000 
01720000 
01730000 


01759000 
01760000 
01770000 
01780000 
01790000 
01800000 
01810000 
01820000 


01840000 
01859000 
01860000 
01870000 
01880000 
01890000 
01900000 
01910000 
01920000 
01939000 
01949000 
01950000 
01960000 
01970000 
01980000 
01990000 
02000000 
02010000 


02030000 
02040000 


02060000 
02070000 


= 


a 


ERR LOC OBJECT CODE ADDR STMT 
i yi. 209 
i re, 2190 
' 212 
213 
214 
215 
216 
217 


go00 219 


OooO E2D7C5C3C9C10340 OOD 221 
OO08 C961064009D6E4E3 221 
0010 C9D5C54078784040 22l 
0018 404040404040 221 


223 
224 
225 
226 
227 
22a 
2293 
230 
231 
232 
233 
234 
235 


237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 


0000 256 


0000 258 


Replace these # signs with 
the characters identifying 
your subroutine. 





0000 262 


SOURCE STATEMENT 


* 
* 
t 
* 
* 
bs 
t 
* 
t 


ef # Fe Fe ee ee 


*eeneenetnhtnenhttheneneet tet ep # 8 


SUBR aE 


Seeeeese 


THE FOLLOWING DC CONTAINS THE PROGRAM TITLE TO BE PRINTED 


ON THE RPG LISTING AND SHOULD BE CHANGED TO REFLECT THE 


NAME OF THE SUBROUTINE. 


ORG 


oc 


SHESHESHE SHES SETHESSESE SEER EERE CHEESE SE SEEESESCEAEHEREREEEEREESEE HD GEE 


9 SIGNALS START OF TETLE 


CL3AO*SPECIAL I/O ROUTINE iM" 











Replace these # signs with 
the characters identifying 
your subroutine. 





SRSEHAASEESSERSAHSSSH ASSESS AED SEEREKSEHAHSEBERHEKHEEECSEREKERSEHKESEBRERE 


THE FOLLOWING CODE REPRESENTS THE FUNCTIONAL CODE FOR THE 


USER ROUTINE. 


1S AT SUBRE#. 


THE 


ENTRY POINT IS THE LABEL ON THE ROUTINE CODE, 


ON THE START CARO. 


ORG 


EQu 


END 


THE ABOVE CGNTROL CARDS ASSUME THE ENTRY POINT 


THE ENTRY POTENT 18S UNLQUE TO EACH SUBROUTINE. 


NOT THAT 


SHSSHHSEHEHSRSESKDKSHEDABEKRESESEH ASEM EDEREBSHEDESSEAHEKERESHEREEDSESDSE 


SHAKES HSRHSESHHSHSSESAREHEHTHEHHSSEHHKEREBDHAEKRSECEEKESEHEHSE SESE REDE SEDHEHHBHHEe 


THE ROUTINE MUST MEET THE FOLLOWING REQUIREMENTS 


WHEN ENTERED FOR INPUT OR QUTPUT 


(NOT EXIT) 


iT MUST 


ACCEPT THE STANDARD SPECIAL I/D LINKAGE PARAMETERS. 


WHEN ENTERED VIA AN EXIT FROM CALCULATIONS IT MUST 
ACCEPT THE STANDARD EXIT LINKAGE AND PARAMETERS. 


1T MUST INDICATE END OF FILE BY PROVIDING THE CORRECT 


COMPLETION CODE IN THE DTF. 


1F A DIFFERENT AREA 1S USED FOR THE ACTUAL ENPUT OR 
OUTPUT BUFFER THE DATA MUST BE MOVED TO GOR FROM THE ADDRESS* 


SUPPLIED IN THE OTF. 


0 SIGNALS START OF ROUTINE TEXT 


* THIS IS THE ENTRY POINT TO THE ROUT. 


ROUTINE CODE [TS PLACED HERE 


SUBR#s 


Figure 29 (Part 4 of 4). Sample Coding for SPECIAL Device 


SCeRSEKRE EEE 


THES INSURES PROPER LISTING FROM RPG 


SHEKEKREKSCESEEKESEEKSEEE KECK EE SKE EEKSE SEEKER ECEEEEKESEEEEKEE £ 


* 
* 
* 
* 
2 
* 
* 
2 


*#*#raeaetkneeenethntrtn +t 


» 
a 
a 
¥ 
* 
* 
£* 
* 
* 
x 
* 
e 
a 
* 


* 
* 


SHESEEEASSSEKKSSSEHSSSEH SEE ERHSESESHHKSEHSESSSEEEAEKRSEKCEKEKEKKSEEKEEEREREF ESE £ 


02090000 
02190000 
02110000 
02120000 
62130000 
02140000 
62150000 
02160000 
02170000 


02190000 


02210000 


02230000 
02240C00 
02250000 
02260000 
o2270000 
02280000 
02290000 
02300000 
02310000 
02320000 
02330000 
2340000 
02350000 


62370000 
02380000 
02390000 
02400000 
02410000 
02420000 
02430000 
02440000 
02450000 
02469000 
02470000 
02480000 
07490000 
02500000 
02510000 
62520000 
02530000 
02540000 


62560000 


02580000 


02600000 


02620000 
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Appendix E: Assembler Language Subroutine To COBOL or FORTRAN Linkage 


This section describes standard linkage conventions for use 
between modules produced by the System/3 language 
translators: COBOL, FORTRAN, and Basic Assembler. 
Programmers using standard linkage conventions are able 

to code routines in the language most appropriate to the 
function being performed, with the assurance that effective 
and permanent communication has been established. Figure 
30 ulustrates the standard described on the following pages. 


SAMPLE SYSTEM/3 LINKAGE -- MODULE A CALLS MODULE B 


EXTRN MODB 
EQU xX'OL' 
EQU  <X'02! 


START X'0000' 
INITIALIZE XR1 AND XR2 TO TEST SAVING 


I; XR1,@XR1 

L XR2,@XR2 

B MODB CALL MODULE B 

DC AL2 (PLIST) 

HPL X'6F',X'6F’ HALT 00 AFTER RETURN 


PARAMETER LIST 
* 
PLIST EQU * 
DC AL2 (SAVA) ADDRESS OF SAVE AREA 
De AL2 (PARML) ADDRESS OF FIRST PARAMETER 
DC AL2 (PARM2) ADDRESS OF SECOND PARAMETER 
DC XEL*00" 


EQU * 
CL5'FIRST' 


* 


CL6"SECOND* 


xi BO: INDICATOR BYTE -- ASSEMBLER MAIN 
CL6 'MODE' MODULE NAME 


Ci2 Ri 
CL2'R2' 
MODA 





Figure 30 (Part 1! of 2). Illustration of Standard Linkages 
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* SAMPLE SYSTEM/3 LINKAGE -~ MODULE A CALLS MODULE B 


@XR1 
@XR2 
@ARR 
@IAR 


| MODB 


+ 


* SAVE 
ds 


SAVA 


SAVARI1 
ve 


SAVAR2 
de 


SAVART 
* 


TWO 
* 


EQU 
EQU 
EQU 
EQU 


ENTRY 
START 


ST 

LA 
USING 
ST 

St 

L 


L 
ALC 


Et 


AREA 
DC 
DC 
DC 
DC 
DC 
DC 


END 


X'O1' 
x02" 
x08" 
x10" 


MODB 
KOO 00" 


SAVAR1,@XR1 
SAVA,@XR1 
SAVA,@XR1 
SAVAR2(,@XR1) ,@XR2 
SAVART(,@XR1) ,@ARR 
SAVART(,@XR1) ,@XR2 


1(,@XR2) ,@XR2 


SAVE CONTENTS OF XR1 
XR1l WILL BE BASE FOR SAVE AREA 


SAVE CONTENTS OF XR2 

SAVE CONTENTS OF ARR 

XR2 POINTS TO ADDRESS OF PARM 
List 

XR2 POINTS TO PARAMETER LIST 


SAVART(,@XR1) ,TWO(,@XR1) SET RETURN POINT 2 PAST ARR. 


BODY OF ROUTINE 


SAVAR2 (,@XR1) ,@XR2 
SAVAR1(,@XR1) ,@XR1 
SAVART, @IAR 


XL1'30' 
CL6 'MODB ' 
XL2 700" 
XL2'00' 
AL2 (00) 


Pig 2. 


Figure 30 (Part 2 of 2). Illustration of Standard Linkages 
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RESTORE XR2 
RESTORE XR1 
RETURN 


INDICATOR BYTE -- ASSEMBLER LANG 

MODULE NAME 

CONTENTS OF XR1 ON ENTRY TO THIS 
MODULE 

CONTENTS OF XR2 ON ENTRY TO THIS 
MODULE 

RETURN POINT 
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STANDARDS 


In order to be standard, linkage must be accomplished as 
follows: 


. 


Each module must have a save area (Figure 31). 


Description Program 


Subroutine 
Main program 


O=Not a main program 
1=Main program 


Subroutine 
Main program 


OOO0=FORTRAN 
001=COBOL 
011=Basic Assernbler 


Reserved 


EBCDIC name, 
left justified 


Subroutine 
Main program 


Value of index register 1 Subroutine 


(XR1) at entry 

Value of index register 2. Subroutine 
XR2} at entry 
Return point in Subroutine 
calling program 


Note: Main prograrn refers to the program with the highest 
level of control. 





Figure 31. Save Area 


2. 


0-1 


2-3 


(2N)-(2N+1) 


(2N+2} 


Each moduie that calls another module must have one 
or more parameter lists (Figure 32). 

Description 

Address of save area in this program 

Address of first parameter 

Address of Nth parameter 


XL1‘O0O’ to indicate end of parameter list 


Note: The first two bytes as well as the end-of-parameter-list 
indicator (XL1‘00‘} must be present in all parameter lists. If 
no parameters are to be passed, the parameter list will be only 
three bytes in fength. {n this case, byte 3 will be O and the 
called program will indicate a parameter list length of 2. 


Note: Addresses in parameter lists refer to the first byte 
(byte with the lowest address} of the item. 





Figure 32. Parameter List 
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When contro! reaches a program entry point, the 
address recall register (ARR) must point to a 2-byte 
field containing the address of the first byte of the 
parameter list. 


The Basic Assembler language code to call a COBOL 
or FORTRAN subroutine would normally be as 
follows: 


EXTRN  SUBR 

B SUBR 

DC AL2(PARAMS) 
RETNPT EQU * 


Note that the pointer to the parameter list points 
to the left byte of the save area address. 


Normal return is accomplished by placing in the 
instruction address register (IAR) a value that is 
two larger than the contents of the ARR when the 
program was entered. 


Index registers ] and 2 (XR1 and XR2) must be 
saved upon entry in the called program’s save 
area, and restored at exit. 


The address recall register need not be restored, 
but the return address must be determined and 
placed in the called program’s save area. 


Along with the Basic Assembler, you will receive a sample 
program. By executing the sample program you can verify 
that the Basic Assembler is operational. 


MODEL 10 AND MODEL 12 SAMPLE PROGRAM 


This section describes the sample program and explains the 
operating procedures necessary for executing it. General 
operating procedures for the Basic Assembler are found in 
the JBM System/3 Model 10 Disk System Operator's Guide, 
GC21-7508, JBM System/3 Model 12 Operator's Guide, 
GC21-5144, and in Part Il of this manual. 


Program Description 


The sample program is called Prime Number Test Program. 
The program reads a number from the console display 
data switches, tests to see if it is a prime number, and 
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indicates the results of the test on the message display 
unit. lf the number zero is tested, the program is 
terminated. 


Three halt codes are used in this program to request input 
and indicate whether the number is prime. They are: 


Halt Code Meaning 
EN Enter a number to be tested. 
IP The number tested is prime. 
NP The number tested is not prime. 


Figure 33 shows the OCL that assembles, link edits, and 
executes the sample program. Figure 34 shows the sample 
program statements. 
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IBM System/3 Bac Assembler Coding Form 















Af 0.4.0 Saisie, F 


wi til [TTT TT 
2 i landielet hnt chend tin et d oE HT Tt pope nt — 
// FU LIE ave on. E. RETAIN SI, UN1IT|-IRi2) (PA 

| | | | | ot i } | | 


Popo — 4 







ae oe ee OR 


7 Fe Malm E|-f 
LL, ia MAME|-SWiORIK2|, 'Rie Tal 
| | 
77 \tom 


Boob eg { i | a ee 
No DS (UNL i, Ipialeixl-le LIF. 





ci Babee bed bod +t t4tt ao § ne 
Pll Le: SobiRcel- sais. vi Te 
} | 1 


a. Om jot =I 
1 : re . i Tok $j 


-(S{uiM[ -[R21. 















a 
talt4 15.16 17 18 19 AD 21 22 72 2a OF 


ts 
ES aes 


rl 4 
el 
|> | 
A 
Ty 
ell 
Ne Se a We ice rol ef eed et 


ae ae a, 
Cal 
pad 





ete a 
{ist im, fe | 
rol 
CP 
Sa 
ot alee es 





EEE 
ee, 
Ae 


| fe] 
=H 
eat) Sas os sheer | 6 








LP ee eee 
WY 
a) 

5 

2 
" 
= oF 

as 

oes ied sl 





NOTES: 

Ve Specifies the location of the assembler program. 

2. Name of assembler sample program in the source library. 
3: Specifies the source library with the sample program. 

4. Library in which the output assembler object {R} module 


is stored. 


Figure 33. Model 10 and Model 12 Sample Program OCL 
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B 
B 
& 
é 
& 
& 
& 
& 
& 
s 
g 
mn 
wn 
& 
z 
















al fant fon ts jj jf tt tt \ took + 
WORK, jRejtiAn IW/-'S), [Ul r/—lFl2) alc cil GORuL 







Remarks 








5. Name given to the output assembler object (OQ) program. 
6. Module name and object program name (R). 
7: Specifies the object {O) program, stored on the Overlay 


Linkage Editor program pack by default. 


if the system configuration does not include drive 2, references 
in the OCL to F2 and R2 must be changed to specify devices 
available on the system. 


) 69 60 61 62 63 64 65 66 G7 68 687071 72 «73 ~74 


OP TIOMS 


THE LIST 


$agc09 
SYHAOL 


FASSPR 


SASSPR 


ERR LOC 


H8o00 


gone 
N04 
ond 
9008 
oOo 
ooL} 
HOLS 


901 4 
OOLA 
goo 
oo7o 
6023 
0077 
on 27 
0025 
003? 
0034 
6034 
d03E 
0042 
2046 


OO4A4 
QCO4E 
o082 
agss 
Oos8s 
onso 
OO-0 


9963 
Hage 


O65 
aner 


Figure 34 (Part |] of 3). 


enone fe 


OF 


cer 


TYPE 


Beye 


CESFECT 


C2? 


77 
50 
Fe 
a 
Rs 


Bn 
Fe; 
SC 
5C 
7. 

ot 
45 
SE 
BE 
SE 

SE 
Be 


PRIME 


i 


5 
—_ 


= 
oe | 


noe 2a 5 
& 


ee ee ee 


a a 


Goeesaooa 


So 


ai 
a4 
ot 
61 
Aly 
a1 


oH Ab 
od FI 


‘(iM ee 
ee aS nas 


TARE 


oH400 


TH 


os 


= iF 
Cy ET 


TF 


TF 
4 
Tih 
rh 
65 
4&8 


ar 


aF 
Ag 


ras 


TG 


TA 


TE 
TB 
TH 
TR 
Te 
78 
TE 


CUP ING THYS 


ASSEMAL Y 


1S~- 


HOMECK LIST, XPEF eREL CBS 


EXTEPNBSL SYPECL LIS 


PONGe AM 


ADOP STMT 


eooo 14 


Cae 


Wh 


A) a Bo Ag Rd mf 
ae 


im 


af 


& A 
49 
an 
51 
2 
o% 


C4 


SPUBCE STATEMENT 


we 2-*e oe ee ee Pe Be 


Tt 


BEGIN 


* 


a 


PRE PAS 


LEOPST 


SUBTR 


6 
a 


RPRIME 


if 
a 
Pr PME A 


PRIMENFSS, 


aGGL 


VER 13. MOOD OO 01/30/76 PAGE 1 


VER 13. MODOO 01/30/76 PAGE 2 


FHI S PROGRAM RPFANS A NURBER FROP THE CONSOLE CISPLAY CATA SWITCHES, TFSTS 1T FOR 


APD INDICATES THE RESULTS OM THE FESSACE OFSPLAY UNIT. 


THERE ARE THREE HALT CCOFS USEN TIN THIS PROGRAM: 


HALT CODE FE ANT RNG 
EN EXTER A NUMBER TO BE TESTER. YF MUMBEP ENTERED IFS FEPO THE 
PPCGRAM TERMINATES. 
1P NUMBEA TS PRIME, 
RP MUMBER IS NOT PPIHE. 


ASSOR START GO 


USTNG *-XR1 


ia 
HPL 
SAS 
cue 
JRE 
ot 


CLE 
J*H 
TBN 
JF 

PVC 


aLe 


ALC 
Cie 
JH 

RVC 
SLC 
er 

OR? 


HPL 
8 


HP] 


12; 


a, xP] 
REDE ERNTC ' 

SENSE (,XP1) 6 

SENSE C2.XP1),Z2EROC, FR 1) 
FREEAR 

4 

RLi'e4? 


PREPARE THE {[APUT NUBPSER 
SENSE¢2,NR1),THREEC, AS 1) 
PoTMEe 

SENSE(,MR1P Xt GE 

NOR T ME 
TESTH#(?], ZEL) «THO, XR1) 

FMM A4il2, X81, S5ENSE(. X81) 
ERDM-10,X813,0 

ENDS +t i 3, xR1} -ENC#*L( . XR1) 
ENT#e1(C4,XRL,ENDR ALE, XR 1) 
ENMHel (3,XP1),END#410,%R11 
EMOM* LOS, XRIPLENM #4 XR 1} 
FACA eLCAsXRLIENDR*L(, XP 11 
ENOM41 04, KRLD,ENCQ@ tL £. X81} 
END#+103-.xR 11, ENDM41E, RRL) 


MATA TEST LOOP 

TEST MH(2,xXRLIZONEt, XR 1} 
TESTA(2 XFL, ENGMES XR) 
DPIME# 

TEMP AR(2,xXP11,SENSEC.ZR1} 
TEMPAR(2 .XR1},TESTALSXPL) 
SUATRE,XR1I 

LeresT(,xel) 


NUMBER NOT PRIME 
X'SEC RIZE! 
BEGINE XRT) 


NUMBER TS PRUFE 


e'FE",xeose 


BECTAE.,¥R1) 


ESTABLISH BASE PEGTSTBR 
{CAO BASE REGISTER 

"ENT HALT 

SENSE TRE DATA SWITCHES 
TEST INDICATICN TC QUIT 
NUMBER TO TEST 

GC TG ENP OF 4NP 


TEST FOR ONE, THC AND THREE 
CALL ONE, TRO ANO THREE PRIKE 
TEST FOR EVEN 

FVEN, BPOCT PRIME 


DIVIQE INPUT BY THE 
TO USE FOR END TESTING 


TNCPREMENT TEST 
TEST FOR COMPLETE 
CCRPLFTE, CALL IT PRIME 
HAXE COPY AKD 

FIND REMAINDER 

By SUBTRACTING 
REMAINGO ER NOT ZERO 


NOT PRIME {NP} HALT 
GC RACK TO BEGINING 


1S PRIME CTP) KRALT 
60 BACK TO BEGINTAG 
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0003 
cera 
ao05 
0006 
ccc 
oooa 
000s 
o¢c10 
ool 
0012 
ec13 
0014 
OC1s 
oclé 
Oo17 
ccie 
oc1s 
0020 
c¢c21 
0022 
0023 
Oc24 
0025 
CC26 
Oc2T 
0028 
oc25 
0030 
0031 
oca2 
0033 
oc34 
ocz§ 
oo07€é 
OC37 
0038 
0039 
ocac 
o041 
cc42 
oca3 
0044 
ocas 
0046 
QO4aT 
oc4e 
00469 
o0sd 
o0f} 
0052 
cce4 
0054 
0055 


9h 


$ASSPR 


PRIME NUMBER TEST 


FRR LOC OBJECT COOE 


QO6F 0009 
O07! 0001 
ocTs aco? 
0075 9063 


OOTT 
OcTs 
oa074a 
DOTC 
OCTE 


TOTAL STATEMENTS IN ER 


SASSPR 
SYMBOL 


BASSPR 
BEGIN 
ERDA 


LOGPST 
NPA LME 
ONE 
PREPAR 
POIMES 
SENSE 
SUBTR 
TEMPAR 
TESTA 
THREE 
Two 
XRY 


ZERO 


LEN 


Oo1L 
003 
902 


004 
oc? 
002 
oc4 
003 
aoe 
O04 
ace 
O02 
002 
o02 
oct 


002 


VALUE 


0009 
Oo04 
Oo7TA 


COSA 
O63 
Oont2 
OO1LéE 
0064S 
OoTSs 
on54 
oOc7H 
OOTF 
OC TA 
OO TS 
ON001 


gare 


TOTAL STATEMENTS 


OL1i05 | 
gL_toa T 


Figure 34 (Part 2 of 2). 


TRE 
TCTAL 


Crome 


DEER 


0013 
9016 
océs 


e04¢ 
C04as 
oo59 
0024 
co53 
006 2 
oc44 
on65 
0a 4 
OCél 
océa 
O06? 


ccSseé 


TR EP 


“NETH OF tASSPR TS 
HiIMBES 


ADDR 


COTO 
0072 
0074 
OOTée 
nove 
COT A 
en7n 
OOTF 
0091 
0990 


ROR [N THIS ASSEMALY 


PAGGR AM 


STMT 


5& 
57 
58 
5S 


SCURCE 


im 
* 
ZERO 
ONE 
TRE 
THREE 
SFNSE 
FRO 


TEKPAR 
TESTa 
MRL 


STATEMEAT VER 13. MODOO 01/30/76 PAGE 3 
CATA AREA 

cc 1L2*08 AINARY ZERO 

oC XL2*o0cl! CNE 

cc PL2"00000C10! THO 

Qc 4Atl2fa) THREE 

Os EtZ 

cs Cl2 

cs cul 

OSs C12 

cs CL2 

EOL l PASE RECTISTER 

END SASSER 

x 0 


CRCSS REFERENCE 


REFERENCES 

00468 

6050 0054 

CccZ29* 0040" 
0036 076% 
0046 

OC2T 

0040 

OoLs 

cg25 adé? 

ooi7T* 0gole 

0045 

CO44* CO44* 
O078* 0040* 
C074 

CO?78 

COLS 00158 
0020 0071 

0034 0037 

0046 0050 

oora 


0031 
C037 


C024 


0041 


o017 
0031 
cc37 
0054 


oo3at* 
cCcz7™ 


0026 


0044 


0018 
CC32 
cc 40 


RCR TN THIS ASSEMBLY = 


VER 13. MODOO 01/30/76 PAGE 4 


0032 0032* 0033 0033* 00324 0034*% 0035 0035% 
064) 


0029 0043 


CO1lB 0024 0024 0026 0028 ao28 oC29 4026 
0032 003232 0033 9034 0034 0035 0035 0036 
oc4ce CC41 CC41 0043 0043 0044 0044 0045 


0 


128 DECIMAL. 


CF LIBRARY SFCTCRS PECUTREO 15 2 
NAME-EASSOR, PACK-RIQIP 1, UNTT-R1,RETATN-TLIBRARY-R.CHTEGOR Y+~000 
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Och? 
oo58 
o059 
acéec 
0061 
cCé2 
coe? 
Oo064 
a0és 
o0éé 
0067 
OaéE 
acés 


MODEL 15 SAMPLE PROGRAM 


This section describes the sample program and explains the 
operating procedures necessary for executing it. General 
operating procedures for the Basic Assembler are found in 
the JBM System/3 Model 15 Operator’s Guide, GC21-5075 
and in Part II of this manual. 


Program Description 


The sample program is called System Input Device List 
Program. The program reads records from the system input 
device and lists them on the system printer. Statements 

are read and listed until one of the delimiters (/*,/&, or 

/.) is encountered. If the delimiter is /*, another file can 

be listed under operator control. 


There are three messages displayed by this program: 


Message Meaning 


EOF ON SYSIN End of file encountered on the 
system input device. More files 
can be printed if the EOF condi- 
tion is caused by /*. The operator 
replies P to print another file or 

C to cancel. 

PRINTER ERROR A permanent printer error has 
occurred. The program issues the 
message and then goes to end of 
job. (The message is displayed and 
then removed when end of job is 
reached. However, the message is 
in the system history area and may 
be displayed from there.) 

SYSIN ERROR A permanent system input device 
error has occurred. The program 
issues the message and then goes to 
end of job. (The message is dis- 
played and then removed when end 
of job is reached. However, the 
message is in the system history area 
and may be displayed from there.) 


The sample program uses Model 15 macros and therefore 
the assembly step must be preceded by a macro processor 
step. 


Figure 35 shows the OCL that assembles, link edits, and 
executes the sample program. Figure 36 shows the sample 
program statements. 
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{GM Systern/3 Base Assembler Coding Form 







































IBM 
PORK ae 7 
PAOGH A MaAF A ta Te 
STATEMENT aba 
BM a7 Ba er ae wo ee ee Gi 64 85 66 4) GA 29 TO Ti 07 7a ra 7S wy 9) Wn 
Ht Ho 
eee 14 {| 
| | ' ' 
pent 4 
ao Le i 1 
ik be rl 2. “ ae pp 
faa} eisbadieceds ee 
dt nbd _—_i—+. MORE 
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+—+ + te o4 = t bd 
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eet eee er ce eee 17 Fora Fie v7 ra po OO Bt ao ad Ba Be ae OP [a] BO od we i ot ae 
T T 
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//\ (Riu 
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oh 
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1. Specifies the program pack. 5S. Module name and object program name (R). 


2 


Name of the assembler sample program in the source 6. Specifies the system pack. 
library. 
If the system configuration does not include the 5444 


3. Library in which the output assembler object (R) drive 2 or the $445 drive |, references in the OCL to R2 
module is stored. and D1 must be changed to specify devices available on 


the system. 
4. Name given to the output assembler object (O) 


program. 


Figure 35. Model 15 Sample Program OCL 
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OPTIONS NOODECK 


OBJECT TO LIBRARY INLY 


THE LEST OF OPTIONS USED DURING THIS ASSEMBLY [$-- 


$ASSIPR 
SYMBIL 


$ASS5 PR 
SS$LPRT 


SASSPR 


ERR LUC 


$ASSPR SYSTEM 


ERR LOC 


4009 


49900 


4094 


4JIF 
%O12 
4015 


4018 


4018 


4022 
4025 
4228 
#028 
4I2E 
GJ31 
4334 
4337 
4038 


4942 
+045 
4048 
4349 
&I4t 
4951 
4954 


TYPE 


MODULE 
EXTRN 


UBsJECT 


CODE 


INPUT JEVITE 


GBJECT CODE 


C2 01 


D2 02 OF 


BC O1 13 
BC 40 OF 
7 Ol 09 


7 O01 17 


D2 92 00 


40 50 Jo 
F2 81 39 
8D 80 99 
F2 31 53 
8D 69 OO 
F2 81 3C 
sc 00 900 
6C Jl 14 
D2 02 37 


39 41 O€ 
F2 81 32 
ao 00-10 
BO 48 OF 
F2° #1. 23 
a8¢ 01 19 
Cu 8? 


4QB8C 


04 


4Q1li8 


90012009 


NODECK LIST ,XREF,REL, OBS 


EXTERNAL SYMBOL LIST 


ANDR STMT SOURCE 


(SYSIN) 


ADDR STMT 


JUOL 24 
%J8C 25 


40 
41 


43 
44 
45 
49 
50 
51 
52 
53 
54 
55 
54 
57 
53 
og 
51 
&2 
&3 
6&4 
a5 
56 


SOURCE STATEMENT 


te +H Oe ee eR He Oe Ot 


LIST PROGRAM 


THERE ARE THREE MESSAGES 
MESSAGE 
"EOF ON SYSIN! 


TPRINTER ERROR? 


*SYSTN ERRIJR! 


VER OL, SOD O39 i1-99-73 PAGE l 
STATEMENT VES Sle Soe ae oe PA! Pee ? 
Chk Patt 
ISFQ 73489 
PRINT NOGEN,NIJDATA 
VER O1s “MOF 99 Leagye73° PAGS 3 
THIS PROGRAM READS A FILE FRI4 THe SYSTEM INPUT DEVICE AND LISTS 


IT ON THE PRINTER. 


ISS JED BY 

MEANING 

FNO JF FILE FNCQUNT? #F 9) 
MORE FILES “AY BE PRINTED Le THE 
EQF TONJITION IS CAUSED BY A Ts! 
THE JPERATOR ATPLYS TO! THIS WESSAGE 
ARE 'P* TD PRINT ANOTHER FELE AND 
‘>’ TO TANCEL AND SO TO EOJ. 

THERE HAS SEEN A PERMANENT PRINTER 
ERROR, THE PQNGRAM ISS JES THE 
MESSAGE AND GIFS FO END OF JOR, 

THERE HAS BEEFY A PFU4ANENT SYSITN 

ERROR, THE PROGRAM ISSUES THE 

MESS4SE AND TU END OF JOU. 


THIS PRIGRAM: 
TYPE 


ATI UN SYSIN, 


aT} 


AT?) 


= ; 
oJES 


$f$ASSPR START X'4000' 


EXTRN $$LPRT 


USING 
LA 


PRINTE DATA MANASEMENT 
FSTABLISH A 4ASF REGISTER 
FOR THE DATA AREAS 


BASE sRRG 
BASE +BRG 


* PREPARE THE PRINTER FILE FOR USF 


LA 
SAL OC 


$UPEN 


“VI 
MV I 
MVI 


* PREPARE TO 


PLES 
* READ 


FILEL 
* 


NOSKIP 


MV [ 


LA 
$RE AD 
CLI 
Je 
obit 
JE 
Cul 
JE 
“VI 
MVC 
La 
BPUTP 
CLI 
JE 
My 
okt 
JNE 
MMVI 


PRNOTF( 2325) ,$0TF 

ACOA TE CPR NE GPL 
TOP PITA LER: UP 

SET FOR SINGLE SPACF 
agP~CODE TU PRINT 
B= IE EIA 


SDF SPA STF) a1 
SDFOPC LE, £OTF), B90 PRT SET 
SYSINL+$SRFCT(,8RG),$SR20F SET SYST 


LsT AUrE 


PRINT A NEW FILF 


PRNOTF¢8OFSKG(,825),1 SET T2 S<1P BEFIRE FIRST PZINT 
FROM SYSIN ANY PRINT UNTIL END OF FILF 

SYS INL( -BRGI.SYS 

OQPC-N KOAD FLI4A SYSTN 

$SRFCTC,SYS) , 8520 TF TEST FoR EGF CEP er et LGN yt ie ky 

FOF 

SSQFTTI SYS) pRSRE EQ TEST Foe BV C'S Foe hh wh) 

EQS 

tSRECTU(,SY¥S7, BSRERR TEST FIR S¥STN EQRIOR 

SYSE8 

$SRFCT (575), 8S2809) SET Fe NEXT SYSIN RFA.) 

PRNOTFrROBFL RAZ -4Ro} p85 PHF 2 (yp SYS) INT 7) CUR ENT ef 32) 

PRNOTF( »325), $0 TF 

DEV -L4@33 PQTNT THe DTuaRFVT RED SR) 

S$OFCMPL ,£ ITF), SI PPER TEST FJe PRINTER FRE VS 

PRWEQR 

SOFSKBL,391F3,9 SFT FRA VA SEER FORDE 

SDFOMP(,S)TF) , BO PVE TEST FAR PAGE [VERFLUA 

NUSKIP 

BOFSKBE,89TF},L SET SX iP Tih taisSF JWE 

FTLEL 


3 


Figure 36 (Part | of 4). Listing of Statements in Model 15 Basic Assembler Sample Program. 
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J90639 900 
QO097FIIA4N 
J09380999 
JIVIBIVO 
JO 100 390 
20 L130) 
VIG1L20009 
J0139909 
JOL4) 300 
90150000 
JOS 23009 
99180999 
JULYQIVID 
032099909 
Jd219200 
I72209009 


V1 240999 
99759200 
GO? BII09 
FJ2TIAIDO 


99790390 
09330309 
JOST O50) 
J032I7000 
IGS 30709 
JO34)I03 
I0t500 00 


23379900 
99333390 


J94090)0) 
gus 1 JI230 
JO4239909 
JOS 347 )07 
294499000 
904503999 
9945990) 
QO4 79909 
09459909390 
39499009 
$3599 3909 
POSE DID 
JUS? DQ 
iJ53)) 09 
J39439)63 
JG550999 
J0S$e69900 
JOS FQ 39 
O9S4I9I00 
JS5O9 7999 


Cy 


SASSPR SYSTEM INPUT DEVICE 


(SYSIN) LIST PROGRAM 


EAR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT VER “JD 90 11-09-73 PAGE 4 
68 * END GF FILE ON SYSIN 
€058 D2 02 28 69 EDF LA EQFMSG(,9%G).LU0G 
70 * $LOG ATOR EDF MESSAGE 
&05F 70 C3 37 7% CL REPLY{,+8RG),C tC? OPERATOR SAY CANCEL 
&062 F2 B81 IC 75 JE EOd 
4065 70 O7 37 76 CL! REPLY {,8RGI.C PE OPERATIR SAY PRINT ANOTHER 
6068 CO 81 4018 ry BE FILES 
4066 CO 87 4058 78 8 EOF INVALID REPLY, TRY AGAIN 
aO * ERROR ON SYSIN 
&070 D2 02 38 81 SYSER LA SERMSG(+8RG),LOG 
a2 * $LOG dT) SYSIN ERROR MESSAGE 
4077 F2 87 OT a6 J EQJ GO TO EOJ 
88 * ERROR ON PRINTER 
407A 02 02 4% 89 PRNERR LA PERMSG(,8235},L06 
90 ® $LOG WI) PRINTER ERZO0R MESSAGE 
95 * END OF JOB ROUTINE 
4081 96 EOS EQU 
4081 02 02 O7 97 LA PRNDIF(,BRG), $DTF 
98 * $CLOS CLOSE PRINTER FILE 
101 * SEOU 30 TO EO’ 
SASSPR SYSTEM INPUT DEVICE (SYSIN) LIST PROGRAM 
ERR LOC OBJECT CODE ADDR STMT SOURCE STATEMENT VER Ile 49D 00 11-09-73 PAGE 5 
105 * CONSTANTS ANQ DATA AREAS 
408C 106 BASE EQU * BASE REGISTER ADDRESS 
108 ® SYSIN TABLES 
109 *YSINL $RLST BUFI-BJFFU1,BUF2-3UFFR2_, SYSIN PARAMETER LIST 
110 * WORK~WORKAR 
116 * $RLSOD SYSIN EQUATES 
133 ® PRINT FILE TABLES 
134 ®RNDIF SOTFP DEV-1403,RCAD-0,1T08A-PRNIOBse PRINT FILE OTF 
135 * | OAA-PRNBUF,RECL-96, 
136 * OVFL-60,PAGE-66 
160 * $OTFO 01403-Y PRINTER DTF DISPLACEMENTS 
223 * SYSTEM LOG TABLES 
224 *OFMSG $LWTO COMP—AS sHALT~AMySUBH~PSeTLEN-12, SYSIN EOF WTOR 
225 * TADR-EDF4SC ,REPLY~Ye%LEN—-1 ,RAOR-REPLY 
&0C3 ET 4003 238 REPLY OC CLItXt WTOR REPLY 
239 *ERMSG $LWTO COMP-AS,HALT-AM»SUBH-PGeTLEN-Ils SYSIN ERROR WTO 
240 * TADR-SERMGC 
251 *ERMSG SLWTO COMP~AS ,4ALT-AMy SUBH-PGeTLEN-13¢- PRINTER ERROR wWIO 
252 * T ADR-PER4GC 
400C 263 EQFMGC EQuU * 
40DC C5D06C440D60540E2 40E7 264 OC CLI2"EOF ON SYSIN® 
40E8 265 SERMGC EQU * 
&0E8 E2E8E2C90540C5D9 40F2 266 DC CLLI‘SYSIN ERROR® 
40F3 267 PERMGC EQU # 
40F3 DFD9CID5E3IC5D9IG0 4O0FF 268 OC CLI3Z*PREINTER ERRORS 
270 * SYSIN BUFFER AND WORK AREAS 
4100 271 ORG *€,128 ORG TO REQUIRED AQUNGOARY 
4100 272 BUFFRL EQU * BUFFER ONE 
4100 00000D0000000000 417F 273 DC XL129'08 
4180 274 BUFFR2 EQu * BUFFER TWO 
180 0000000000000000 41FF 275 DC XL128°O8 
4200 276 WORKAR EQU * WORK AREA 
4200 0000000000000000 422€ 277 OC XL47°O! 
279 * PRINTER BUFFER AND WORK AREAS 
#27C 280 ORG ®,256eX"7C ORS TG REQUIRED BOUNDARY 
427C 281 PRNBUF EQU * PRINTER BUFFER 
427C 4040404040404040 4305 282 OC CLL38" ¢ 
4306 283 PRNIOS EQU * PRINTER IQB 
£306 0000000000000000 4337 284 OC XL50"0? 
286 * REGISTER LABELS 
OOOl 287 BRG EQU l BASE REGISTER 
0002 288 SYS EQU 2 SYSIN PARAMETFR LIST POINTER 
0002 289 LOG EQU 2 SYSLOG PARAMETER LIST POINTER 
4000 290 END SASSPR 
TOTAL STATEMENTS IN ERROR IN THIS ASSEMBLY-- 0 
TOTAL SEQUENCE ERRORS IN THIS ASSEMBLY-- 0 


Figure 36 (Part 2 of 4). Listing of Statements in Model LS Basic Assembler Sample Program. 
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006109000 
30629990 
99639000 
00640006 
30650000 
90660000 
00670000 
00680000 


00706000 
80710000 
90720000 
a07 30900 


00759900 
007469090 
30770000 


00790000 
90800000 
0081093900 
00820000 
90830009 


00850000 
00860000 


00880000 
X00890000 
00900000 
00910900 


00930000 
X00940000 
x00S50000 

00960000 

00970900 


00990000 
X01 000000 
01010000 
01020000 
Xx01030000 
OL 040000 
X01050000 
01060009 
01970000 
01080000 
019096000 
01100000 
01110000 
01120000 


01140000 
01150000 
91160000 
01170000 
01180000 
91190000 
01200000 
01210000 


01230000 
91240900 
01250000 
01260000 
91270000 
Oi 2800090 


OL 3909000 
01310000 
01320000 
91330000 
01340000 


$ASSPR 
SYMBQL 


$S$LPRT 
SASSPR 
$ALCOI 
$A1LDAT 
$ALH5& 
$ALINT 
$4 1MFM 
$ALPCH 
SALPRT 
$4 1PR2 
$ALRD 
SAZALL 
SAZAMP 
$AZ2EIDF 
$A2HUC 
$A21ND 
$A2MBF 
$A20PN 
$A2SIN 
$C PCND 
$C PEOF 
$C POVF 
$CPPER 
$CPSUC 
$DFARR 
$OFAT1L 
$OFAT2 
SOFCHA 
$DFCHB 
SDFCMP 
S$OFOEV 
$DFLP 
SOFLRA 
$DFMSK 
$DFOPC 
$DFOVE 
$DFPGS 
$DFPIB 
$OFPIO 
$DFPOS 
$DFPQ 
$OFPR 
SDFPRL 
SDFSKA 
$DFSKB 
$DFSPA 
$OFSPB 
$DFUPS 
$DFXRS 
$OTF 
$OCPRT 
$SRBF 1 
$SRBEF 2 
$SREOF 
$SREOJ 
$SRERR 


Figure 36 (Part 3 of 4). Listing of Statements in Model 15 Basic Assembler Sample Program. 


LEN 


001 
Oo1L 
OO0l 
OOol 
OOl 
Qo 
001 
901 
O01 
Jal 
001 
gol 
001 
O91 
001 
JO1 
O01 
ool 
O01 
O01 
901 
O01 
OO1 
gol 
O01 
QOL 
901 
001 
O01 
001 
OOL 
O01 
001 
9014 
00t 
OOl 
O91 
OOl1 
OOl 
O01 
001 
001 
O91 
001 
001 
ool 
OuOLl 
001 
001 
001 
O61 
001 
O01 
OO% 
001 
O01 


VALUE 


YO01 
40090 
BOLI 
0001 
0002 
u004% 
0008 
0020 
0040 
0001 
0080 
0040 
g004¢ 
Oud8 
0032 
vOBO 
OU1L0 
0001 
0020 
0010 
0042 
0048 
0041 
0040 
0009 
0002 
0003 
JQ05 
Qo07 
DOVE 
0000 
0010 
Q00D 
OOLF 
QOOF 
Qo1c 
0020 
OOolT 
0019 
VO1LE 
0014 
0015 
QO18B 
0012 
0010 
0013 
0011 
0091 
0008 
0002 
0040 
0002 
0004 
0050 
0080 
0060 


DEFN 


0024 
g023 
O193 
O198 
O196 
0195 
0194 
0192 
OL91 
O19? 
0190 
0203 
0208 
0206 
0207 
0202 
0205 
0209 
0204 
021% 
O217 
0213 
0216 
0215 
0168 
0164 
O165 
OL66 
O16? 
0171 
0162 
0183 
O1L70 
O1B5 
OlLT2 
O182 
0186 
QO179 
0180 
018% 
O17? 
0178 
O181 
O175 
0173 
0176 
O1T4 
0163 
O169 
0161 
0221 
0118 
O119 
Di29 
013i 
0130 


CROSS REFERENCE 
REFERENCES VER 


JO59 
Q290 


0063 
0060 


9060 9063 


0056* 


9037 


0041* 0062* 0065* 
0036* 


9029% 0936 0037 OD57* 9060 9952 39963 


0037 


9056 
0049 
0051 
0053 


Ols 


JI65 


el ae ae 1a 
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SASSPR 
SYMBOL 


S$SRFCT 
$SRNOM 
$SARB 
$SRROO 
$SRROF 
$SRRDL 
$SAWRE 
BASE 
BRG 


BUFFR1L 
BUFFR2 
EOF 
EFOFMGC 
EQFMSG 
Pad 
PTLEL 
FILES 
LOG 
NOSKIP 
PERMGC 
PERMSG 
PRNBUF 
PRNOTE 
PRNERR 
PRANTOB 
REPLY 
SERMGC 
SERMSG 
SYS 
SYSER 
SYSIENL 
WORKAR 


LEN 


ereRl 
B01 
Jul 
QOo1l 
001 
Jl 
901 
O01 
a0 1 


d01 
OO01 
003 
J01 
Ool 
Ook 
JO3 
003 
Oot 
094 
JOk 
O01 
301 
QoL 
393 
001 
O01 
OO01L 
QOL 
vol 
OU3 
O01 
301 


VALUE 


9030 
9040 
0009 
00900 
0001 
JOG2 
3006 
4Q8C 
0001 


4100 
4180 
4058 
400C 
40B4 
4081 
4016 
4018 
0902 
4054 
4OF3 
4000 
427TC 
4093 
4UTA 
4306 
4UC 3 
40€8 
4004 
OUud2 
4079 
40aC 
4200 


TOTAL STATEMENTS 


QEFN 


OLL? 
0128 
0126 
O123 
0124 
O125 
0120 
Q196 
9237 


C272 
274 
QO069 
0263 
9227 
0096 
004% 
0041 
0289 
0066 
O267T 
U254 
3281 
O13? 
Q089 
02383 
0238 
9255 
9242 
0284 
0031 
OLlll 
O276 


IN ERROR 


TOTAL SEQUENCE ERRORS 


GL1O5 1 


OLLO3 


TRE CODE LENGTH UF SAS5PR) TS 


TOTAL NUMBER 


CROSS REFERENCE 


REFERENCES VER Jl-e MOO Dov 
9039* 39049 O051 9953 JI5S* 
0955 
3038 
0025 3026 
9025 9026* 0029 0038 3041 0044 VYU56 QIST YOQOI 
00869 JO9T 
v1LL3 
Ol14 
3050 Oo784 
0235 
0969 
0052 OvV75 0086 
0066 
JO7T7 
O069* 00B1* OO090% 
3064 
0262 
G089 
O1L53 
Q029 JU41L* JU56* CI5T O97 
Q961 
0152 
JOT ODJO7T6 O237 
3250 
JUS IL 
0044* UU49 0051 O53 0055 O50 
954 
JO3d* 304% 
OLLS 
IN JHIS ASSFMALY-- 0 
CALS AS SEAR LY == a 
82¢@ DECIMAL. 
OF LIBRARY SECTORS REQUIRED IS 3 


NAME-SASSPR,PALTK-RIRIR Ls JNIT-A1 ,RETADNWHT,LISRARY-8,CATEZOSY-399 


Figure 36 (Part 4 of 4). Listing of Statements in Model 15 Basic Assembler Sample Program. 
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Li-I9= 73 


J374 


VITS 


CAGE 


0981 


7 


Appendix G: !BM 1255 Magnetic Character Reader Support (Models 12 and 15 Only) 


Support is provided by the following IBM-supplied 
subroutines: 


@ SUBRO7 — 1255 (Model 15 only) 

@ SUBRO8 — 1255 (Model 12 and Model 15) 

@ SUBRO9 — 1419 (Model 12 and Model 15) 

For detailed information concerning this support, see the 
IBM System/3 Models 12 and 15 1255 and 1419 Magnetic 


Character Reader Reference and Program Logic Manual, 
GC21-5132. 


Appendix G. IBM 1255 Magnetic Character Reader Support (Models {2and 15) 99 











100 (101-104 deleted) 


SWORK 2 file 34 
/fCENDcard 33 
// SWITCH statement 31 


absolute displacements 12 
absolute expressions 7 
absolute object program 28 
address constant 18 
addressing 12 
base-register displacement method 12 
data addressing 13 
direct method 12 
instruction addressing 13 
relative addressing technique 12 
symbolic (direct) 12 
assembler 
coding conventions §& 
coding form 9 
functions | 
instruction statements 17 
data definition 18 
fields 8 
format 8 
listing control instructions 20 
program control instructions 22 
symbol definition instruction 17 
listing 29 
assembler language subroutines 
linkage to COBOL 86 
linkage to FORTRAN 86 
linkage to RPG IL 7} 
placing in R library 36 
assembling a source program 28 
asterisk 
use in comment statement 10 
use as location counter reference 6 
attributes 
length atribute 14 
value attribute 14 


base address 12 

base register 12 

base-repister displacement addressing 12 
basic assembler sample program 89 
beginning column = 25 

binary consiant 6, 19 

binary self-defining term 6 


calling a source program 31 
category level 27 
CATG operand 27 
character 
constants 19 
self-defining terms 6 
COBOL linkage 86 


Index 


code 
control 43 
mnemonic | 
operation 9, 43 
machine 47 
mnemonic | 
Qcode 17,43 
coding conventions, assembler 8 
coding form, assembler 9 
coding sample for SPECIAL device 82 
COMLx operands 29 
comment statement 10 
complement (two’s complement form) 19 
constant (see also self-defining term) 
address 18 
binary 19 
character 19 
data 18 
decimal 19 
define constant (DC) 18 
hexadecimal 19 
integer 19 
negative (see integer constant) 
padding of 19 
truncation of 19 
control card code for assembler subroutine 76 
control statements 27 
control cards, LDG program (see Library Deck Generator 
parameter card) 
control section length 27 
control code 43 
conversion, punch 33 
cross reference data 35 
cross reference listing 28, 40 


data 

addressing 13 

constant 18 
data defining instructions (DC and DS) 18 
data file requirements 34 
DC (define constant) instruction 18 
decimal constant 19 
decimal self-defining term 5 
deck, object 17 
define constant (DC) instruction 18 
define storage (DS) instruction 19 
diagnostics 40 

table of 69 
direct addressing 12 
displacement 12 

absolute 12 

relocatable 12 
DROP statement 25 
DS (define storage) instruction 19 
duplication factor 

with DC instruction 18 

with DS instruction 19 


Index 105 


EJECT statement 20 
END record 33 
END statement 26 
ending column (see also ICTL statement) 25 
entry (see fields) 
entry point 25 
ENTRY statement 25 
EQU (equate symbol) statement 17 
errorcode 69 
error conditions, LDG program 81 
error information 35 
ESL record 32 
explicit length 15 
expression 7 
absolute 7 
evaluation of 7 
multi-term 7 
relocatable 7 
rules for coding 7 
extended ninemonic codes 14,48 
external symbol list 39 
table size 42 
EXTRN statement 25 
EXTRN subtype 25 
specifying 27 


fields(s) 
assembler statement 8 


identification-sequence 10 
name 10 

operand (machine instructions) 14 
operation 10 

remark 10 


files 
source 34 
object 34 
work 34 
format(s) 


assembler statement 8 
machine-instruction statement 13, 43 
operand 14 

format control, input 22 

FORTRAN linkage 86 


groups machine-instruction operand 15 


HEADER record 32 
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